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ABSTRACT 

Vhe  Hellenic  Air  Force  storage/utilization  database 
management  system  (DBMS),  utilizes  mainframe  computers.  It 
is  a  system  for  large  applications,  such  as  big  business, 
and  it  is  used  only  at  the  Air  Force  Headquarters  level. 
However,  the  need  for  an  extension  of  this  system,  to  lower 
levels,  has  been  recognized  for  a  long  time. 

This  problem  can  be  resolved  through  the  implementation 
of  the  DBMS  programs  developed  for  this  thesis,  and  the 
utilization  of  DBASE  II  software  applied  to  microcomputers, 
vice  the  larger,  more  expensive ,\^ainframe  computers.  ' 
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I .  INTRODUCTION 


An  amazing  amount  of  progress  has  been  made  in  the  com¬ 
puter  field  since  the  primitive  computer  age  of  the  1950s. 
Personal  computers,  realistic  graphics,  high-level  languages, 
artificial  intelligence,  music  composition,  and  many  other 
technological  advancements  have  been  made  in  a  period  of  only 
35  years,  and  new  applications  are  being  discovered  every  day. 
However,  a  tremendous  management  problem  has  been  generated 
because  of  the  unpredictability  of  software  development  time. 
Several  solutions  to  this  problem  have  been  introduced  to  help 
the  software  keep  up  with  the  more  sophisticated  hardware. 

In  the  opinion  of  the  writer,  one  of  the  most  effective  ap¬ 
proaches  is  to  let  the  "same  computer"  solve  the  software  prob¬ 
lem,  thus  causing  increased  complexity  in  the  computer.  Now 
the  slogan  in  the  field  of  computer  science  is:  "Fight  the 
complexity  with  the  complexity"  [Ref.  1] .  That  means  that  we 
should  try  to  load  as  much  as  possible  into  the  computer  hard¬ 
ware  in  order  to  decrease  our  working  time,  since  the  speed 
and  consequently,  the  efficiency  of  the  hardware  on  the  modern 
computer  has  been  increased  to  the  imaginary  level. 

This  concept  of  recursive  construction  tries  to  balance 
the  software  development  time  and  cost,  by  improving  and  auto¬ 
mating  the  computer  process.  Starting  from  a  system  that 
controls  another  less  complex  unit,  we  create  a  bigger  system 


to  control  the  previous  one  and  another  that  controls  a  bigger 
system  to  control  the  previous  and  another  that  controls  the 
bigger  one  and  so  on.  Thus  the  idea  is  that  we  can  begin 
with  a  minimum  of  structure,  then  provide  masses  of  data  and 
wait  for  the  program  to  solve  its  own  complexities  [Ref.  1] . 
Therefore,  an  individual  works  only  on  the  understandable 
main  menus,  by  using  simple  instructions  without  being  engaged 
in  the  intermediate  processes.  This  progressive  aspect  of  the 
computer  has  been  enforced  in  the  various  fields  of  computer 
science,  and  this  principle  has  recently  found  greate  applica¬ 
tion  in  the  design  of  databases. 

The  idea  of  recording  and  maintaining  information  in  an 
organized  manner  appeared  many  years  ago,  when  the  value  of 
organized  information  was  realized.  The  importance  of  this 
idea  is  stressed  in  the  Spinoza  expression:  "The  order  and 
connection  of  ideas  is  the  same  as  the  order  and  connection 
of  things"  [Ref.  2].  However,  the  appearance  of  computers 
started  enforcing  this  idea  with  the  implementation  of 
applications  on  the  computer. 

The  use  of  automation  and  parallelism  theories  has  also 
helped  the  designers  to  make  retrieval  of  very  large  databases 
very  easy,  and  in  extremely  timely  manner.  These  capabilities 
of  the  database  have  recently  been  appearing  on  a  variety  of 
modern  database  machines  some  of  which  are  briefly  described 
below: 
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1.  VERSO  (a  relational  backend  machine):  it  is  being  de¬ 
veloped  at  laboratories  and  its  main  feature  is  a  hard¬ 
ware  filter  that  can  process  data  at  the  speed  of  2 
million  characters  per  second. 

2.  SABRE  (a  relational  database  system  for  a  multimicro¬ 
processor  machine):  it  represents  several  original 
ideas  in  database  design  such  as  the  clustering  of 
data,  multiple  views  of  a  database,  joint  algorithms 
for  relations,  query  evaluation,  and  integrity  control. 

3.  Full-Text  Information-Retrieval  System:  can  access  a 
database  of  tens  of  billions  of  characters  in  a  timely 
manner.  This  satisfactory  response  time  for  interactive 
query  formulation  and  refinement  is  provided  to  the 
system  by  the  finite  state  automaton  architecture 
mechanism  [Ref.  3]. 

This  automation  mechanism  finds  all  the  combinations  of  the 
possible  movements  from  one  stage  to  another,  keeps  track 
of  the  various  paths,  and  selects  the  optimum  one.  The  mag¬ 
nitude  of  these  machines  can  be  captured  by  the  human  mind  if 
we  imagine  that  it  can  read  an  entire  newspaper  in  only  milli¬ 
seconds.  This  tremendous  progress  in  database  design  has  re¬ 
sulted  in  lower  cost,  and  has  provided  a  strong  motivation  for 
working  in  the  database  development  field,  especially  on  very 
large  databases. 

An  additionally  strong  motivation  for  working  in  the  data¬ 
base  field  is  the  wide  variety  of  database  applications.  These 
applications  include  manufacturing  with  inventory  management, 
the  servicing  of  industries  with  lists  of  service  capabilities; 
economic  models  with  production  data  for  allocation  and  plan¬ 
ning,  and  medical  services  with  patient  records,  disease  histories 
problem  classification,  and  treatment  effectiveness  data  [Ref. 

2].  Thus,  databases  are  appearing  and  supporting  almost  every 
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science.  It  might  be  said  that  it  is  the  database  era  in 
computer  application. 

An  important  consideration  in  the  design  of  the  data¬ 
base  is  the  way  of  storing  data,  which  is  used  for  a  broad 
variety  of  applications  and  can  be  used  to  make  changes  to 
the  data  quickly  and  easily.  The  ability  of  the  database 
to  be  applicable  in  so  broad  an  aspect  of  applications  is 
based  on  a  common  feature  that  makes  database  development 
valuable  and  general  in  a  programming  methodology.  This 
feature  is  a  creative  form  which  is  called  "structural  growth". 
This  "structural  growth"  should  start  with  a  solution  on  a 
simplified  version  of  the  problem  and  then  repeatedly  expand 
its  capabilities  up  to  the  desired  level.  This  feature  would 
provide  a  multiple  of  "hooks"  for  the  user,  ways  that  the  user 
may  insert  his/her  own  code  to  effect  behavior  of  the  system 
[Ref.  4]. 

One  useful  tool  that  supports  this  structural  development 
is  a  working  model,  a  prototype,  which  has  recently  become 
possible  only  with  the  development  of  more  powerful  procedural 
based  languages.  Two  other  basic  tools  are  the  data  dictionaries, 
and  strong  modularity.  In  Chapter  IV  we  will  examine  the 
capabilities  of  these  tools  and  we  will  see  how  all  of  these 
tools  provide  a  strong  basis  for  the  relational  database 
management  system  (DBMS)  development. 

Among  these  potential  applications,  the  military  require¬ 
ments  for  economic,  medical,  battle  planning,  personnel 
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classification  and  organization,  storage  organization,  and 
work  scheduling  information  are  of  primary  importance  to  any 
defense  organization. 

Utilizing  the  advantages  of  the  wide  applicability  of 
dBASE  II,  the  objective  of  this  thesis  is  to  provide  a 
generally  useful  package  for  military  application,  and 
specifically,  to  meet  the  requirements  of  the  Hellenic  Air 
Force  Storage  Organization  at  the  lower  levels  of  utiliza¬ 
tion,  and  to  enable  the  Hellenic  Air  Force  Material  Staff  to 
more  easily  handle  the  queries  of  "part  demand"  by  using 
microcomputers . 


II.  OVERVIEW  OF  THE  MANAGEMENT  SYSTEMS 


A.  WHAT  IS  A  DATABASE  MANAGEMENT  SYSTEM  (DBMS)? 

A  database  management  system  is  a  software  tool  that  is 
used  to  manage  and  maintain  an  organization’s  database  re¬ 
sources.  The  database  management  system  does  no  depend  on 
any  application  program  or  specific  file,  but  can  be  used 
to  provide  data  to  several  application  programs  [Ref.  5;  p. 

335] .  A  major  role  of  the  DBMS  is  to  enable  the  user  to  deal 
with  the  data  in  abstract  terms  rather  than  as  the  computer 
stores  the  data.  The  DBMS  allows  the  user  to  specify  what 
must  be  done,  with  little  or  no  involvement  in  detailed  al¬ 
gorithms,  or  data  representation  used  by  the  system  [Ref.  6; 
p.  1].  DBMS  provide  a  means  of  easing  some  of  the  problems 
of  managing  data  in  large-scale  management  information  systems. 
Although  the  database  management  system  provides  facilties 
and  great  assistance  to  the  user  by  reducing  much  of  his/her 
potential  errors,  it  is  one  of  the  most  complex  variations  of 
software  in  existence. 

B.  INTERACTION  OF  THE  PROGRAMMER/USER  WITH  THE  SYSTEM 

The  description  of  the  database  is  written  in  a  special¬ 
ized  language  or  Data  Definition  Language  (DDL) ,  and  is  com¬ 
piled  into  tables  that  exist  in  the  system.  Programs  that  are 
permanently  stored  in  the  DBMS  which  are  used  to  manipulate 
the  data  are  called  application  programs.  A  collection  of 
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routines  that  is  used  to  process  queries  is  called  a  database 


manager.  A  database  manager  translates  the  query  into  terms 


that  the  file  manager  understands.  The  database  manager  pre¬ 


vents  the  duplication  of  data  by  storing  everything  in  a 


single  database,  it  reduces  the  program  development  time  by 


using  many  routines,  and  it  improves  the  reliability  of  the 


system  by  automatic  integration  of  information  and  the  rela¬ 


tionship  of  information  [Ref.  7:  p.  14]. 


The  file  manager  may  be  provided  by  the  underlying  opera¬ 


ting  system,  or  may  be  a  specialized  file  system  that  contains 


all  the  information  about  the  storage  of  the  data.  The  data¬ 


base  manager  with  the  assistance  of  the  file  manager,  can  pro¬ 


vide  rapid  access  to,  and  manipulation  of  the  database.  The 


database  manager  usually  performs  other  tasks,  such  as  the 


following; 


Security.  Gives  the  ability  to  the  user  to  protect  the 
access  of  its  data  from  unauthorized  persons. 


Integrity .  Enables  the  DBMS  to  check  the  data  whenever 
a  user  uses  a  command  to  insert,  delete,  or  change  some 
data . 


Synchronization .  Provides  protection  to  the  DBMS  against 
inconsistencies  that  are  caused  when  two  or  more  approx¬ 
imately  simultaneous  operations  occur  on  a  data  item 
[Ref .  6 :  p  .  4]  . 


In  figure  2.1  we  can  see  the  components  that  comprise  the 


whole  system. 


C.  LEVELS  OF  ABSTRACTION  IN  A  DBMS 


A  fairly  standard  viewpoint  regarding  levels  of  abstrac¬ 


tion  is  the  three  levels  of  presentation  (views,  conceptual 


J’v.V.v 


USER 


APPLICATION 

PROGRAMS 


Figure  2.1.  Schematic  Diagram  of  a  Database  System 


database,  and  physical  database),  which  are  shown  in  figure 

2.2. 

1.  The  views  are  an  abstract  model  of  a  part  of  the 
conceptual  database.  A  facility  for  declaring  views,  called 
a  subscheme  data  definition  language,  and  a  facility  for 
expressing  queries  and  operations  on  the  views,  are  called  a 


subscheme  data  definition  language,  and  a  facility  for  ex¬ 
pressing  queries  and  operations  on  the  views,  are  called  a 
subscheme  data  manipulation  language.  An  example  of  the 
use  of  the  different  views  could  be  set,  an  airline  with  a 
computerized  reservation  service  system,  that  is  concerned 
only  about  the  flights  and  passengers.  However,  another  sys¬ 
tem  (view)  would  be  concerned  about  personnel  files  or  assign 
ment  of  mechanics  to  work  on  specific  airplanes  [Ref.  6:  p.  6]. 


2.  The  conceptual  database  is  just  an  illustration  of  the 
real  world.  A  DBMS  provides  a  data  definition  language  (DDL) 
to  specify  the  conceptual  database.  DDL  is  a  high-level 
language  that  is  used  to  describe  the  conceptual  database  in 
regards  to  a  data  model. 

3.  The  physical  database  is  stored  permanently  on 
secondary  storage  devices,  such  as  disks  and  tapes. 


D.  BENEFITS  OF  THE  DATABASE  MANAGEMENT  SYSTEMS 

A  database  management  system  can  be  a  complex  and  expensive 
tool  for  an  organization.  The  installation  of  a  database  man¬ 
agement  system  increases  substantially  the  entire  data  process¬ 
ing  cost  of  an  organization,  since  the  initial  cost  may  range 
from  $10,000  to  over  $200,000.  For  that  reason  an  organization 
must  compare  the  overall  costs  of  a  DBMS  with  the  benefits  to 
be  gained  from  its  use.  The  advantages  of  DBMS  come  from: 

1.  Improved  control.  The  DBMS  improves  the  control  of  data 
in  numerous  ways.  Data  can  be  organized  and  structured 
so  that  it  is  suitable  for  many  application  systems.  In 
addition,  control  over  input  and  use  of  the  data  is  im¬ 
proved.  Control  is  also  improved  for  privacy  and  security 
of  data  by  using  the  built-in  procedures  of  the  DBMS. 

2.  Evolvability .  The  ability  of  DBMS  to  be  adjusted  to 
meet  changes  caused  by  either  usage  requirements  or 
technological  improvements. 

3.  Service.  Service  may  be  improved  at  a  lower  total  cost 
to  an  organization  because  of  the  more  efficient  use 

of  storage  space  and  substantial  reductions  in  program 
maintenance  costs.  The  reduction  of  the  program  main¬ 
tenance  cost  is  importance  since  typically  more  than 
half  of  the  expenses  is  absorbed  by  the  software  systems. 

4.  User  Benefits.  In  addition  to  the  previously  discussed 
benefits,  we  can  add  some  others  that  go  directly  to 


16 


the  user.  Users,  by  using  the  different  skills  from 
the  different  levels  of  languages,  can  interrogate 
the  database  to  "fine-tune"  requests.  Thus,'  they 
receive  more  appropriate  information,  with  less  of 
the  irrelevant  information  often  associated  with  some 
types  of  generated  reports.  Similarly,  through  direct 
interrogation,  users  can  find  answers  to  those  un¬ 
anticipated  inquireis  that  play  an  important  role  in 
rapidly  changing  organizational  environments  [Ref.  5: 
p.  352]. 


III.  BASIC  MODELS  OF  THE  DBMS 


There  are  three  basic  models  o£  the  database  management 
system.  There  are  the  network,  the  hierarchical  and  the 
relational  models  (figure  3.1). 


Figure  3.1.  The  Three  Database  Models 


A.  Hierarchical 

A  hierarchical  model  is  a  special  case  of  the  network 
model.  A  hierarchy  structure  can  use  ordering  conventions 
for  the  segments.  The  characteristic  of  this  model  is  that 
each  descendand  (child),  has  to  have,  at  most,  one  link  with 
the  other  file.  In  addition,  this  link  must  proceed  only 
from  ascendand  to  descendant.  Thus  the  basic  operation  on  a 
hierarchical  database  is  a  tree  walk;  that  is,  given  a  node 
(which  represents  a  record  of  the  database)  of  the  database 
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tree,  we  search  all  its  descendants  of  this  node.  The  figure 


3.2  shows  the  hierarchical  model  of  the  same  organization 


depicted  in  the  network  model 


Figure  3.2.  A  Hierarchical  Model 


B.  NETWORK 


A  network  is  used  when  applied  structures  are  more  com¬ 


plex  than  hierarchies,  a  special  case  of  the  network  model. 


The  characteristic  of  the  network  is  that  its  links  are  bi¬ 


directional,  allowing  us  to  travel  either  from  many  to  one  or 


from  one  to  many  files.  The  figure  3.3  shows  the  schematic 


representation  of  one  organization  by  using  the  network 


system. 


C.  RELATIONAL 


The  relational  model  is  quite  different  in  its  organiza¬ 


tional  structure.  Information  is  stored  in  two-dimensional 


files,  and  the  manipulation  of  its  queries  uses  the  relational 


calculus.  It  uses  indexed  tables  for  fast  search  and 


Figure  3.3.  A  Network  Model 

retrieval.  The  uniquely  identified  attribute  of  an  indexed 
file  is  called  a  key,  and  is  represented  by  underlining  the 
attribute  showed  in  figure  3.4. 


Figure  3.4.  A  Relational  Model 
D.  COMPARISON  OF  THE  MODELS 

The  relational  model  is  easier  to  use  than  the  other  two 
models,  because  it  provides  only  one  concept,  the  relation¬ 
ship,  that  the  programmer  must  know  very  well.  Further,  the 


network  model  requires  our  understanding  of  both  record 
types  and  links,  and  their  relationships.  The  implementa¬ 
tion  of  "many  to  many"  (linking  from  many  records  of  one 
file  to  many  records  of  another  file)  for  more  than  two 
files  provides  serious  complexity.  Similarly,  the  hierarchi¬ 
cal  model  has  the  same  problems  as  the  network  has,  because 
it  requires  understanding  the  use  of  the  pointers. 

From  the  aspect  of  efficient  implementation,  the  network 
and  hierarchical  models  clearly  win.  This  happens  because 
of  the  difficulty  of  the  relational  model  to  implement  "many 
to  many"  relationships.  Here  we  should  add  an  intersection 
file  (with  the  fields  including  at  least  the  keys  of  the  two 
files),  that  causes  problems  and  creates  complexity  on  the 
system. 

The  last  criterion  of  the  model's  evaluation  is  the 
language  that  supports  each  of  them.  From  this  aspect  we 
note  that  the  relational  DBMS  requires  support  by  high-level 
languages,  while  DBMS  based  on  other  models  have  a  tendency 
to  use  languages  of  a  lower-level.  The  high-level  language 
provides  a  single  "data  type"  for  the  relationship.  In  con¬ 
trast,  lower-level  languages  enable  the  programmer  to  use  a 
variety  of  data  types.  This  variation  of  the  data  types 
used  in  the  network  and  hierarchical  models  provide  efficient 
implementation,  but  require  skilled  users. 


IV.  TOOLS  THAT  SUPPORT  A  DATABASE 


The  increasing  productivity  of  systems  development,  the 
shortening  of  the  response  time  of  the  computer,  and  the 
increasing  complexity  of  computer  systems,  require  effective 
tools  that  will  be  capable  of  processing  information.  This 
chapter  covers  advanced  tools  currently  available  to  meet 
these  challenges.  In  the  opinion  of  the  writer,  such  tools 
as  prototyping,  data  dictionaries,  and  modularity,  are  the 
appropriate  choices. 

A.  PROTOTYPE 

1 .  What  is  Prototyping? 

Prototyping  has  proven  to  be  a  valuable  technique 
throughout  the  engineering  sciences.  Its  name  comes  from 
the  Greek  words  "protos=first"  and  ''type=model"  [Ref.  2: 
p.  26].  It  is  not  a  new  concept.  Software  systems  are  being 
constructed  today  in  much  the  same  way  that  they  have  been 
for  the  past  two  decades.  In  some  instances,  scientists  and 
engineers  with  sophisticated  support  environments  have  used 
prototyping  as  an  alternative  approach.  They  realized  that 
"pilot  systems",  are  necessary  and  useful  tools  which  reduce 
the  inherent  technical  risks  created  with  developing  new 
software.  Prototyping  is  a  hand-crafted  version  of  a  final 
production  model  [Ref.  8:  p.  14],  "Prototyping"  is  also 
defined  as:  "a  perfect  example  of  a  particular  type"  and  as 
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"an  original  or  model  after  which  any  thing  is  formed"  [Ref. 

* 

9:  p.  13].  It  is  a  technique  which  offers  the  probability 
of  delivering  a  clear,  correct,  and  validated  requirement 
statement  of  the  user's  need. 

2 .  Prototype  Life  Cycle 

The  development  steps  that  a  system  should  follow, 
when  using  a  traditional  management  information  system  ap¬ 
proach,  are  shown  in  figure  4.1,  and  the  development  steps 
of  a  system  using  the  prototyping  techniques  are  shown  in 
figure  4.2. 


Figure  4.1.  Traditional  Life  Cycle  Technique 
The  figure  show  that  the  only  difference  from  the 
traditional  technique  is  in  the  requirement  steps,  which  ap¬ 
pears  in  the  prototype  technique  [Ref.  10:  p.  163].  On  the 
substeps  of  the  prototyping  development,  we  can  see  that  the 
key-mechanism  of  the  structure  is  the  iteration  process.  The 
iteration  process  gives  us  a  high-degree  of  confidence  in  the 
design  quality  and  completeness  of  the  design  [Ref.  11:  p.  25] 
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Feasibility  -  1. 

-  2. 

Requirements  -  3. 

-  4, 

Preliminary  Design  -  5, 

Detailed  Design 
Integration 
Implementation 
Operation  and  Maintenance 


Identify  basic  needs 
Develop  working  model 
Demo  in  context 
Implement  revisions 
Is  prototyping  done? 
If  Yes,  go  on  to 
detailed  design 
Else,  go  back  to 

Preliminary  Design 


Figure  4.2.  Prototype  Life  Cycle  Technique 
3 .  Advantages  of  a  Prototype 

The  main  benefit  of  prototyping  is  its  ability  to 
bridge  the  communication  barriers  in  the  development  process. 
This  feature  enables  the  prototyping  to  create  a  dialogue 
between  human  and  machine,  allowing  the  user  to  make  minor 
changes  quickly.  In  addition  to  this  benefit,  the  prototyping 
approach  has  numerous  other  advantages  during  the  development 
of  a  system,  such  as: 

-  Prototyping  technique  is  usually  faster  than  traditional 
methods . 

-  It  permits  assessment  of  the  impact  of  the  system  on  the 
entire  user  environment. 

-  It  permits  early  testing  of  the  human/machine  interface. 

-  It  provides  a  medium  for  validating  requirements. 

-  It  requires  fewer  programmers. 

-  It  reduces  the  life  cycle  costs  by  reducing  the  maintenance 
cost . 

-  It  is  developed  with  correctness  in  mind  [Ref.  2:  p.  26]. 


4 .  Prototyping  Limitations 

In  spite  of  the  numerous  advantages  of  prototyping, 
it  does  have  limitations.  The  major  limitations  are: 

-  Prototypes  are  not  developed  with  efficiency  in  mind 
[Ref.  2:  p.  26].  (This  is  caused  by  the  decrease  in 
software  development  time  and  the  use  of  fewer 
programmers) . 

-  Prototyping  does  not  necessarily  result  in  shorter  devel 
opment  time. 

-  It  is  possible  for  a  programmer  to  leave  out  some  major 
part  of  a  system  during  the  development  phase. 

-  Because  of  extensive  use  of  the  iteration  process,  time 
estimating  procedures  are  difficult. 

-  Prototyping  is  not  appropriate  for  all  types  of 
applications . 

Although  these  limitations  seem  to  degrade  the  value 
of  prototyping,  it  is  clear  that  most  of  these  problems  can 
be  solved  as  more  experience  is  gained. 

5 .  Prototyping  Applicability 

The  greatest  potential  advantages  of  prototyping 
appear  on  large  systems  development.  Algorithm  based  prob¬ 
lems  do  not  create  an  appropriate  environment  for  fast  itera 
tion.  On  the  other  hand,  on-line  transaction  processing 
based  applications  work  perfectly  by  using  the  prototyping 
technique.  Prototyping  can  also  be  used  as  a  basis  for 
bottom-up  integration.  It  can  do  an  evaluation  of  update 
and  retrieval  efficiency,  and  can  be  used  to  simplify  the 
implementation  and  acceptance  of  a  new  system. 

Prototyping  can  also  be  used  to  improve  the  physical 
database  design.  In  order  to  understand  this  improvement, 
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we  can  think  of  the  relational  database  as  a  "pilot  model" 
which  is  the  structure  of  the  database  file,  and  then  the 
iteration  feature  of  the  prototyping  will  be  applied 
sequentially  on  all  records  of  the  same  file. 

However,  in  addition  to  the  assistance  that  is  pro¬ 
vided  by  prototyping  in  the  database  software  development 
design,  the  data  dictionary  tool  should  also  be  available 
for  use. 

B.  DATA  DICTIONARIES 

A  data  dictionary  is  used  for  the  definition  and  the 
recording  of  the  data  elements,  and  the  handling  of  the 
logic  representations  such  as  decision  tables,  and  structural 
English.  It  is  a  document  that  provides  details  of  each 
data  file  that  is  described  [Ref.  12:  p.  186]. 

A  typical  data  dictionary  entry  is  presented  in  figure 
4.3  [Ref.  13:  p.  126].  It  should  include  the  name  of  the 
data  item,  where  it  is  used,  its  purpose,  where  it  is  de¬ 
rived  from,  its  subordinate  systems,  and  any  other  appro¬ 
priate  notes. 

We  can  see  that  the  relations  are  composed  from  fields 
of  the  data  records.  These  fields  are  called  domains  of  the 
relation.  For  example,  the  record  "ORDER"  has  seven  fields 
as  in  figure  4.3.  ORDER  ("customer- ident ity ,  order-date, 
catalog-number,  item-name,  unit-price,  quantity,  total-cost). 
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DATA  FLOW:  ORDER 

DATA  STORE:  ORDER- DATE 

COMPOSITION: 

COMPOSITION 

CUSTOMER- IDENTITY 

TIME 

ORDER- DATE 

DAY 

ITEM-ORDERED 

MONTH 

CATALOG -NUMBER 
ITEM- NAME 

UNIT  PRICE 
QUANTITY 

TOTAL- COST 

YEAR 

Figure  4.3.  Example  of  Data  Dictionary 


The  value  of  dictionaries  to  the  maintenance  staff  of  a 
system  are  obvious.  Much  of  the  information  conventionally 
gathered  by  cross  reference  programs  can  be  entered  into  the 
dictionary,  and  when  a  program  object  is  to  be  changed, 
reference  to  the  dictionary  should  be  made  to  ensure  the 
changes  are  accepted  by  the  system  [Ref.  12:  p.  187]. 

Since  the  data  dictionary  can  define  attributes  of  the 
data,  and  relationship  among  them,  it  can  be  utilized  as  a 
source  of  information  that  is  needed  by  prototyping. 

A  data  dictionary  may  also  contain  the  output  of  proto¬ 
typing  in  an  organized  database,  and  generally  should  be  the 
main  factor  to  integrate  all  the  conceptual  output  that  is 
produced  by  the  tools  that  are  being  used  [Ref.  14:  p.  250]. 

C.  MODULARITY 

Modulus  always  refers  to  parts  that  can  be  put  together 
to  make  a  complete  system.  We  can  think  of  the  modulus  as  a 


work  assignment  given  to  a  programmer  or  group  of  program¬ 
mers  in  order  to  construct  a  complete  system  by  putting 
their  assignments  together.  The  use  of  modulus  and  sub¬ 
systems  provide  a  powerful  abstraction  mechanism,  since  the 
parts  of  the  whole  system  can  be  compiled  separately,  they 
can  use  their  libraries,  and  they  can  link  the  library  units 
into  the  object  code.  Systems  with  strong  modularity  consist 
of  sell-defined  manageable  units,  and  with  well-defined  inter¬ 
faces  among  the  units.  For  well  designed  systems,  the  modular¬ 
ization  criteria  should  have  the  following  characteristics: 

1.  Modules  which  contain  instructions,  processing  logic, 
and  data  structures 

2.  Modules  which  can  be  separately  compiled  ans  stored 

3.  Modules  which  can  be  included  in  a  program 

4.  Modules  which  can  utilize  other  modules  [Ref.  13:  p. 

147]  . 

All  of  these  characteristics  make  the  modularity  power¬ 
ful  and  very  useful  throughout  the  computer  sciences,  and 
provides  effective  solutions,  especially  in  the  large  and 
complex  programs. 

In  the  relational  database,  modularity  can  be  used  to 
integrate  the  developed  structure  of  the  system  in  order  to 
be  more  understandable  and  easier  to  handle  by  the  user. 

Examples  of  modules  include  procedures,  subroutines,  and 
functions.  Modularization  permits  the  designer  to  separate 
a  system  into  functional  units,  to  establish  the  hierarchical 


feature  of  the  ordering,  to  implement  data  abstractions ,  and 
to  develop  software  by  using  subsystems  [Ref.  13:  p.  147]. 


V.  OVERVIEW  OF  MICROCOMPUTERS 


A.  INTRODUCTION 

In  general,  by  the  term  "microcomputer"  we  mean  a  stored 
computer  program  comprising  memory  and  input/output  circuits 
together  with  a  microprocessor  (CPU),  residing  on  one  or  more 
chips.  Microcomputers  are  a  recent  technology  and  are  ac¬ 
cepted  by  many  people  because  they  provide  several  advantages 
as  compared  to  the  larger  computers.  First  of  all,  micro¬ 
computers  are  not  as  expensive  as  the  mainframe,  and  can  be 
very  helpful  for  many  people  for  personal  use.  Second,  micro¬ 
computers  are  powerful,  reliable,  and  can  be  used  for  a  wider 
range  of  specific  applications.  Third,  they  are  acceptable 
to  any  environment  and  can  replace  the  older  computers,  which 
require  additional  funding  for  maintenance  personnel  and 
special  facilities  (air  conditioned  rooms  and  large  spaces). 
However,  the  limited  access  speed  and  the  limited  storage 
capabilities  are  the  major  disadvantages  of  microcomputers 
[Ref.  15:  p.  11]. 

B.  PROBLEMS  AND  CHARACTERISTICS  OF  THE  MICROCOMPUTER- BASED  DBMS 

The  use  of  a  database  management  system  (DBMS)  in  the 

microcomputer  environment  is  a  relatively  new  orientation. 
Recently  many  DBMS  packages  have  been  tailored  for  the  micro¬ 
computer.  They  have  become  very  attractive  to  the  user 
because  of  the  high  cost  of  the  larger  computers  and  the 


requirement  of  less  memory  storage  for  the  smaller  systems. 

In  spite  of  the  fact  that  the  new  packages  were  developed 
independently  of  the  mainframe  DBMS,  they  still  have  similar 
characteristics  and  problems,  such  as: 

1.  Concurrency  control.  The  special  problems  which  take 
place  when  a  database  is  accessed  by  many  users.  For 
example,  when- two  users  simultanteously  lock  and  access 
two  records,  and  then  they  both  attempt  to  lock  the 
second  one  which  is  locked.  This  problem  (deadlock) 
disappears  when  the  record  is  unlocked.  DBASE  II  does 
not  use  any  mechanism  to  enforce  concurrency. 

2.  Transportability.  This  issue  is  focussed  on  two  levels. 
Portability  of  application  programs  and  DBMS  in  high- 
level  language  and  portability  of  DBMS  machine.  DBASE 
II  is  offered  on  CP/M  and  compatible  systems.  Since 

it  is  interpreted  at  run  time,  only  the  interpreter  is 
modified  to  run  on  other  systems.  The  language  of  DBASE 
II  remains  the  same. 

3.  Integrity  and  consistancy.  The  ability  of  the  DBMS  to 
determine  if  the  entered  data  is  appropriate  and  valid 
for  further  processing.  DBASE  II  has  rather  limited 
consistancy  checks  and  it  does  not  provide  a  range 
limit  on  all  insertions. 

4.  Security.  This  important  feature  should  concentrate  on 
several  things.  The  prevention  of  unauthorized  access 
and  modification  to  data  in  secondary  storage;  the  pre¬ 
vention  of  unauthorized  access  and  modification  to  data 
when  the  DBMS  is  in  use;  and  a  provision  of  selective 
security  to  control  access  to  the  individual  fields  of 
a  record.  DBASE  II  does  not  provide  any  explicit 
security.  We  could  use  a  password  protection  by  creat¬ 
ing  a  specific  command  file,  but  this  protrection  could 
be  by-passed  by  reading  directly  to  the  command  files. 

5.  Crash  protection  and  recovery.  The  ability  of  the  sys¬ 
tem  to  recover  in  case  of  a  hardware  failure.  Typical 
problems  which  take  place  are  disk  damage,  temporary 
power  failure,  and  transients  in  the  power  supply  which 
cause  data  in  memory  to  be  mixed,  etc.  DBASE  II  has  no 
special  functions  to  protect  the  system  from  damage 
caused  by  the  hardware.  The  only  protective  operations 
are  the  echoing  of  the  operations  and  transactions  to 
the  printer  or  a  disk.  Consequently  a  backup  copy  is 
the  best  way  of  recovering  from  such  problems. 


C.  DBASE  II  CONCEPTS 


DBASE  II  is  a  relational  DBMS.  However,  since  the  re¬ 
lationship  of  the  different  files  of  the  same  application 
is  not  stored  in  the  system,  we  can  not  say  strictly  that  it 
is  a  true  DBMS.  The  main  advantage  of  DBASE  II  is  that  it 
provides  simplicity  in  application  programming.  This  means, 
it  can  be  easily  used  by  programmers  with  a  minimum  of  ex¬ 
perience.  DBASE  II  can  be  applied  to  the  financial,  manu¬ 
facturing,  home,  and  business  fields.  Some  typical  applications 
include : 

*  General  ledger,  accounts  receivable,  accounts  payable, 
payroll,  job  costing,  and  legal  office  accounting. 

*  Inventory  control,  purchase  order  systems,  project  manage¬ 
ment,  time  scheduling,  materials  requirement  planning, 
invoicing  systems,  and  order  entry  systems 

*  Stock  portfolio  management,  games,  simulations,  nutritional 
analysis,  tape  and  record  collection  management,  coupon 
exchange  management,  recipe  file  control,  home  budget 
analysis,  and  tax  computation 

*  Real  estate  management,  mailing  list  management,  ticket 
ordering  system,  time  billing,  and  personalized  mass 
mailings . 

Some  of  the  features  of  DBASE  II  are: 

*  A  large  degree  of  program  and  data  independence.  Data 
structures  can  be  altered  without  the  necessity  of  many 
program  changes 

*  Data  can  easily  be  added,  edited,  deleted,  sorted,  indexed, 
or  reported  using  a  minimum  of  programming. 

*  Reports  can  easily  be  created  from  data  in  a  database 
using  mathematical  operations  like  multiplication  and 
division.  Subtotals  and  totals  can  be  easily  generated. 

*  Professional  screen  formats  can  be  created  for  data  entry. 
You  design  the  entire  screen,  and  data  entry  only  requires 
the  operator  to  "fill  in  the  blanks." 
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*  The  internal  language  is  extemely  powerful  with  single 
commands  for  indexing,  sorting,  and  reporting.  Often 
programs  can  be  developed  at  five  or  ten  times  the  speed 
of  developing  equivalent  BASIC  programs. 


*  The  internal  language  is  a  structured  language,  and  its 
programs  are  far  easier  to  write  and  update  than  un¬ 
structured  programs  [Ref.  7:  p.  12], 


VI.  APPLICATION  OF  DATABASE  DEVELOPMENT 


This  chapter  describes  the  steps  taken  to  develop  the 
Hellenic  Air  Force  Storage/Utilization  database  management 
system,  and  provides  the  course  application  programs  to 
support  the  needs  of  the  user.  Example  reports  are  also 
included  to  demonstrate  how  this  database  can  be  used  to 
provide  better  communications  and  user  satisfaction. 

The  phases  that  comprise  this  development  are:  the 
analysis  phase,  design  phase,  and  the  implementation  phase. 

A.  ANALYSIS  PHASE 
1 .  Introduction 

The  analysis  phase  of  software  development  involves 
requirement  specifications  that  state  the  "what"  of  the 
software  without  implying  the  "how."  The  "how"  specifica¬ 
tion  concerns  software  design  and  will  be  examined  in  the 
design  phase  section. 

In  reference  to  this  thesis,  the  demands  of  the 
Hellenic  Air  Force  Storage  System  (HAFSS)  must  be  specified 
and  the  objective  requirements  for  the  system  that  is  being 
developed  must  be  analyzed. 


large  number  of  users  that  manipulate  these  parts,  has 
recently  cVeated  a  major  problem  for  the  Hellenic  Air 
Force  Storage/Utilization  System.  Actually  the  solution 
of  this  problem  is  becoming  more  complex  as  the  demands  for 
more  effective  and  more  complex  weapons  systems  emerge. 

As  a  partial  solution  to  this  problem,  computerization 
was  introduced  on  an  Air  Force  level  basis  in  recent  years. 

It  is  the  intention  of  this  thesis  to  suggest  an  expansion 
of  this  system,  down  to  the  Air-base  level,  in  an  attempt 
to  increase  efficiency  in  the  handling  of  airplane  parts. 

As  a  facet  of  this  expansion  to  the  base  level  utiliza¬ 
tion,  microcomputers  are  strongly  suggested  by  this  thesis 
for  reasons  which  were  described  in  Chapter  V.  Their  utiliza¬ 
tion  on  sequentially  lower  levels  of  the  organization  will 
revolutionize  the  current  process  of  stores  accounting,  and 
provide  the  necessary  measures  of  economy  of  manpower,  ensur¬ 
ing  that  sufficient  stocks  are  maintained  in  a  timely  fashion. 
In  this  utilization,  (and  due  to  the  limited  storage  capacity 
of  microcomputers),  care  must  be  taken  to  store  only  that 
data  which  is  pertinent  to  the  tasks  required.  The  kind  of 
output  that  must  be  retrieved  from  the  system  vary,  and  de¬ 
pend  on  several  factors.  To  meet  the  demands  of  the  Hellenic 
Air  Force  Storage/Utilization  System,  the  application  software 
developed  from  this  study,  is  based  on  the  appropriate  inputs 
and  is  directed  by  the  following  necessary  outputs. 


INPUT 


OUTPUT 


PART  NUMBER 


WHERE  CAN  WE  FIND  A  SPECIFIC 
PART? 


PART -NUMBER,  DATE 


HOW  MANY  PARTS  WERE  ORDERED  IN 
A  SPECIFIC  TIME  PERIOD? 


USER-NAME,  DATE 


WHO  ORDERED  THE  PART  AND  WHEN 
WAS  IT  ORDERED? 


PART -NUMBER,  DATE 


WHICH  PARTS  DO  WE  NEED  TO  REORDER? 


SUPPLIER-NAME,  COST 
PART 'NUMBER 


WHICH  SUPPLIER  IS  PREFERRED  FOR 
BUYING  A  SPECIFIC  PART? 


PART-NUMBER,  QUANTITY  WHAT  IS  THE  REQUIRED  QUANTITY 

OF  A  SPECIFIC  PART? 


INVOICE-NUMBER, 
PART -NUMBER 


BY  WHICH  INVOICE  NUMBER  WAS  A 
SPECIFIC  PART  TAKEN? 


PART-NUMBER,  DATE,  COST  WHAT  WAS  THE  COST  FOR  A  SPECIFIC 

PART  IN  A  SPECIFIC  PERIOD? 


The  question  remains  as  to  "how"  to  implement  these  object¬ 
ives.  The  "how"  is  answered  in  the  design  phase  of  the  applica¬ 
tion's  development. 


B.  DESIGN  PHASE 

According  to  Webster,  the  process  of  design  involves  "con¬ 
ceiving  and  planning  out  in  the  mind"  and  "making  a  drawing, 
pattern,  or  sketch  of"  [Ref.  13:  p.  137].  In  software  design, 
we  have  two  separate  kinds  of  activities.  The  external  design 
is  concerned  with  refining  the  software  requirements  and  estab¬ 
lishing  a  bird's  eye  view  of  the  structure  of  the  system  and 
the  internal  design  is  concerned  with  the  internal  structure 
of  the  system  and  the  processing  details.  Design  is 
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the  connection  between  requirements  and  an  implementation 
that  satisfies  those  requirements,  and  is  the  "how"  of  the 
software  products. 

The  database  system  of  this  thesis  organizes  the  data 
into  files,  and  the  data  stream  is  accomplished  by  the  com¬ 
mand  programs  of  the  system.  The  use  of  menus  and  submenus 
is  an  ideal  way  to  establish  the  top-down  design  were  atten¬ 
tion  is  first  focused  on  global  aspects  of  the  overall  sys¬ 
tem,  and  then  is  decomposed  into  subsystems  where  more  con¬ 
sideration  is  given  to  it. 

Figure  6.1  illustrates  the  organization  of  the  main  menu 
and  submenus  of  the  system  (by  capital  letters),  and  their 
programs  (lower  case  letters). 


SECURITY  PROGRAM 


entry 

1 

MAIN  MENU 


ADDMENU 

1 

DELMENU 

MODIMENU 

REPOMENU 

QUERMENU 

1 

adpart 

depart 

mopart 

repart 

quel 

adarstr 

dearstr 

moarstr 

resuplr 

que2 

adwstr 

dewstr 

mowstr 

reorder 

que3 

adsuplr 

desuplr 

mo sup 1 

reusage 

que4 

adj  str 

de j  str 

rearstr 

adacstr 

deacstr 

rewstr 

adorder 

deorder 

reacstr 

adusage 

deusage 

Figure  0.1,  Organization  of  the  Database  Programs 
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FIELDS  OF  THE  DATA  FILES  OF  THE  AIRPLANE  PARTS  SYSTEM 
PARTS 


PNO 

DESC 

ARPLT 

SUPLRNA 

ARSTRNA 

WSTRNA 

JUNA 

ACSTRNA 

QOH 

COST 

BUPPLIERS 


SUPLRADR 

ZIP 

COUNTRY 

ARPLT 

DELIV 

PRODUC 

CO 

TIME 

ORDERS 


DRDNO 

DATE 

PNO 

DESC 

ORDNA 

SUPLRNA 

QNT 

COST 

USAGE 


INVNO 

DATE 

PNO 

DESC 

UNAME 

UADDR 

QNT 

COST 

^STORES 


ARSTRNA 

PNO 

DESC 

ASLFNO 

ARPLT 

QNT 

COST 

WSTORES 


WSTRNA 

PNO 

DESC 

WSLFNO 

ARPLT 

QNT 

COST 

trUNSTORES 


JUNA 

PNO 

DESC 

JSLFNO 

QOH 

COST 

ACSTORES 


I^CSTRNA 

PNO 

DESC 

ACSLFNO 

ARPLT 

QOH 

COST 

Figure  6.2.  Organization  of  the  Files 


The  figure  6.2  shows  the  structure  of  the  files  of  the 
system  that  are  constructed  according  to  the  specific  demands 
of  this  system.  Also,  a  hierarchical  style  representation 
of  the  files  is  illustrated  in  the  figure  6.3.  Meaning  of 
the  names  in  figure  6.2  follows: 

PNO  =  Part  Number  DESC  =  Description 

SUPLRNA  =  Supplier  Name  ARSTRNA  =  Stores  of  Airpl 

Parts 

WSTRNA  =  Weapon  Stores  JUNA  =  Junk  Stores 

ACSTRNA  =  Accessories  QOH  =  Quantity  On  Hand 

Stores 

COST  =  Cost  SUPLRADR  =  Supplier  Address 

ZIP  CO  =  Zip  Code  COUNTRY  =  Country 

DELIV  TIME  =  Delivery  Time  ORDNO  =  Number  of  the  Order 

DATE  =  Date  ORDNA  =  Name  of  the  Orderer 

INVNO  =  Number  of  the  UNAME  =  Name  of  the  User 

Invoice 

ASLFNO  =  Airpl  Store  Shelf  WSLFNO  =  Weapon  Store  Shelf 
Number  Number 

JSLFNO  =  Junk  Shelf  Number  ACSLFNO  =  Accessories  Shelf 

Number 

The  requirements  of  the  analysis  phase  that  have  been  dis¬ 
cussed  in  the  preceeding  section,  are  satisfied  by  using  the 
above  files,  and  by  using  the  information  stored  in  the  fields 
of  those  files.  All  the  necessary  operations  will  be  performed 
under  the  program's  control.  For  example,  in  order  to  satis¬ 
fy  the  first  question  of  the  analysis  phase,  "where  can  we 
find  a  specific  part"  (with  part  #  222222),  we  have  to  use 
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the  indexed  "parts"  file  with  the  key  "PNO",  and  go  through 
it  until  we  find  the  record  with  the  number  222222,  Further¬ 
more  we  can  obtain  the  information  on  where  this  part  is 
stored,  including  its  location,  the  shelf  number  on  which 
this  part  has  been  stored,  and  the  quantity-on-hand . 


PARTS 


USAGE 


STORES 


ORDERS 


STORES 


SUPPLIER 


Figure  6.3.  File  Organization  in  Hierarchical  Vi< 


C.  IMPLEMENTATION  PHASE 

This  section  describes  the  implementation  of  the  data¬ 
base  system  of  this  thesis,  by  using  the  relational  DBMS, 
DBASE  II.  Generally,  in  the  operational  environment,  the 
DBMS  provides  several  functions  to  carry  out  the  implementa 
tion  of  the  application  programs.  However,  although  the 


principal  function  of  the  DBMS  is  to  store,  retrieve,  and 
modify  data,  the  DBMS  provides  other  important  functions 
as  listed  below: 

1.  Store,  retrieve,  and  update  data 

2.  Provide  integrity  services  to  enforce  database 
constrains 

3.  Provide  a  user-accessible  catalog  of  data  description 

4.  Control  concurrent  processing 

5.  Support  logical  transactions 

6.  Recover  from  failure 

7.  Provide  security  facilities 

8.  Interface  with  communications  control  programs 

9.  Provide  utility  services  [Ref.  18:  p.  408]. 

Ideally,  for  a  product  to  be  a  relational  DBMS,  it  must 
be  a  full-capability  DBMS,  plus  it  must  process  data  as  re¬ 
lations.  In  practice,  no  relational  DBMS  product  concurrently 
provides  all  of  the  nine  functions. 

The  basic  characteristics  that  a  DBMS  must  have  to  be 
considered  as  a  relational  model,  are  tables  that  define 
data  and  are  processed  by  SELECT,  PROJECT,  and  unrestricted 
JOIN  operations.  DBASE  II  substitutes  the  principle  rela¬ 
tional  DBMS  commands  with  the  following  ones: 


FOR"  for 

SELECT 

"JOIN" 

for 

JOIN 

GET"  for 

RETRIEVE 

"COPY" 

for 

PROJECTION 

UPDATE" 

for  UPDATE 

"FIND" 

for 

FIND 

"STORE”  for  STORE 


"CREATE"  for  CREATE 


Appendix  A  of  this  thesis  contains  the  listings  of  the 


application  programs  that  has  been  developed  by  handling 
these  DBASE  II  commands. 

The  organization  of  these  application  programs  include: 
addition,  deletion,  modification,  reports,  and  queries. 
Furthermore,  each  of  these  operations  is  applied  to  each  of 
the  database  files  of  the  Airplane's  Part  System. 

1 .  Addition  Operations 

The  addition  operations  are  applied  to  all  of  the 
files  of  the  system,  and  their  purpose  is  to  add  new  data 
to  the  appropriate  file.  The  addition  is  accomplished  inter 
actively  by  program  control  through  the  use  of  menus. 

The  addition  process  starts  by  asking  the  user  to 
enter  the  specific  data  (part,  user  of  the  part,  ordered 
part,  etc),  by  filling  some  blanks  on  the  screen  with 
characters  or  numbers.  Then  the  new  data  is  stored  into 
computer  memory,  displayed  on  the  screen  for  verification  by 
the  user,  and  then  copied  into  an  appended  blank  record.  In 
case  of  the  part  addition,  entries  are  added  to  the  part 
(master)  file,  plus  the  appropriate  file.  For  example,  a 
weapon  part  is  stored  into  weapons  data. 

2 .  Deletion  Operations 

Deletion  operations  like  addition  operations  are 
applied  to  all  the  files  of  the  system,  and  are  very  fast 
operations.  These  operations  enable  the  user  to  delete  data 
from  the  appropriate  file  interactively.  The  process  starts 


by  asking  the  user  to  fill  some  blanks  of  the  screen,  in 
order  to  define  the  specific  data  that  is  going  to  be 
deleted.  The  program  then,  takes  this  input,  uses  the 
indexed  file,  finds  the  data  of  the  specific  record,  dis¬ 
plays  all  the  record  data  to  the  screen  for  an  additional  check 
by  the  user,  and  ask  him/her  again  if  he/she  desires  to 
delete  this  record.  In  the  case  of  deletion  operations  from 
the  part  file,  the  specific  part  is  deleted  from  the  part 
(master)  file,  and  from  the  appropriate  file. 

3 .  Modification  Operations 

The  purpose  of  the  modification  operations  is  to 
allow  the  user  to  change  the  data  of  a  specific  record. 

This  process  starts  by  asking  the  user  to  input  through  the 
screen  the  specific  data  that  he/she  is  interested  in  modi¬ 
fying.  Then  this  entry  by  the  use  of  the  indexed  file 
locates  the  appropriate  record,  and  displays  its  data  on 
the  screen  enabling  the  user  to  modify  the  desired  data.  The 
new  entries  change  the  appropriate  record  on  the  part  (master) 
file,  and  the  affected  file  that  keeps  the  specific  data. 


4 .  Report  Operations 

The  report  operations  enable  the  system  to  report  the 
current  parts  of  the  airplane  stores.  The  menu  driven  capabil¬ 
ity  helps  the  user  to  get  a  report  for  any  store  he/she  de¬ 
sires.  In  addition  to  store  reports,  the  reports  for  the 
airplane  stores  include  a  submenu  in  order  to  provide  to  the 
user  partial  report  for  a  specific  kind  of  parts.  For 
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example,  in  the  airplane-part  store,  the  user  can  take 
(printed  or  displayed)  reports  of  the  part  for  the  Fighter 
F-4. 


5 .  Query  Operations 

The  purpose  of  the  query  operations  is  to  allow  the 
user  to  ask  the  most  important  questions  that  could  retrieve 
from  the  system.  Since  the  number  of  the  queries  can  be  too 
large,  a  good  cooperation  between  the  designer  and  the  user 
is  a  must  in  order  to  design  the  system  to  operate  only  on 
the  appropriate  aspect  according  to  the  needs. 


VII.  CONCLUSION 


The  increased  demands  of  the  Hellenic  Air  Force  Storage/ 
Utilization  Airplane  Parts,  created  the  need  of  decentra- 
lication  of  the  database  management  system  which  is  based  on 
the  use  of  mainframe  computers,  and  performed  at  the  Air 
Force  Headquarters  Level. 

This  thesis  developes  a  database  application  package 
which  utilizes  a  DBASE  II  database  management  system,  and 
a  microcomuter  environment  for  implementation  at  the  Air- 
Base  Level.  The  establishment  of  this  system  will  relieve 
the  current  system  from  being  overloaded,  and  provide  greater 
economy,  better  control  of  stocks  by  the  Air-Base  Commander, 
more  efficient  part  utilization,  and  more  efficient  "on  time" 
orders. 


APPBIDII  A 


Entry. prg  ♦♦***♦♦♦♦♦♦♦♦♦♦♦*♦♦♦***♦♦ 


♦  AUTHOR 

♦  DATE 

♦  PURPOSE 


KONOXLOPOULOS  B ARAL ABO S 
9-3-85 

THIS  PROGRAM  PROTECTS  THE  SYSTEM  FROM 


* 


UNAUTHORIZED  ACCESS 


SET  ESCAPE  OFF 
STORE  t  TO  flag 
*  create  a  continue  loop 
DO  KHILE  t 
ERASE 

SET  DEFAULT  TO  b: 

SET  COLOR  TO  30,14 

a  1,30  SAY  OATEO 

STORE  •  ’  TO  apassword 

a  4,10  SAY  "ENTER  TO  THE  DBASE,  BY  NRITING  THE  CORRECT 
a  4,12  SAY  "PASSWORD" 
a  12,3  SAY  ’ENTER  A  BLANK  TO  EXIT  ' 
a  23,3  SAY  *  ENTER  THE  PASSWORD  * 

SET  CONSOLE  OFF 
ACCEPT  TO  apassvord 
SET  CONSOLE  ON 
READ 

IF  $ (mpassword,  1 , 1 )  =  *  ’ 

CANCEL 

ENDIF  $  (mpassword,  1, 1  )  =  •  ' 

IF  mpassword  =  "GREEK"  .OR.  apassword  =  "GOODS" 
ERASE 

SET  TALK  OFF 

SET  COLOR  TO  20,10 

a  5,27  SAY  ’WELCOME  TO  THE  SYSTEM' 
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SET  COLOB  TO  30,14 

9  8,  10  SAY  *  THIS  SYSTEH  ALLOWS  THE  OSEB  TO  IHPBOVE 
3  10,10  SAY  <  THE  PEBFOBHANCE  OF  THE  STOBAGE/UTILIZA- 
9  12,10  SAY  •  IIOM  OF  THE  AIBPLANE  PABTS.  IT  IS  A 
9  14,10  SAY  *  COMPLETELY  MENO  DBIVEN  SYSTEM,  AND  THE 
91  ,10  SAY  *  OSEB  JOSI  FOLLOH  THE  INSTBOCTIONS  ' 

SET  COLOB  TO  112,30 

9  23,20  SAY  CHB(7)+  «  PBESS  ANY  KEY  TO  CONTINOE  '* 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
EBASE 

SET  COLOB  TO  112,14 
DO  men  a 
ELSE 

EBASE 

SET  COLOB  TO  112,140 

9  8,15  SAY  CHB(7)*''IBY  AGAIN  PLEASE.  THIS  IS  NOT  THE 
9  8,17  SAY  «  COBBECT  PASSHOBD  « 

9  8,67  SAY  CHB  (002) 

SET  TALK  OFF 
STOBE  1  TO  Z 
CO  WHILE  Z<10 

9  8,75  SAY  CHB  (7) 

STOBE  Z+1  TO  z 
EHODO  WHILE  z<10 
SET  COLOB  TO  30,14 
END  IF 

END DO  WHILE  t 

Menu.  * *4i  * *41 

*  AOTHOB  :  KONDYLOPOULOS  HABALABOS 

♦  DATE  :  9-12-85 

♦  PUBPOSE  ;  THIS  PBOGBAM  SELECTS  THE  DESIBED  OPEEATION  ON 

*  :  THE  SYSTEM  BY  USING  USING  MENU  OBIVEN  CHOICE 
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**4>**«*  «**«««****««4i «««««««««  *«4i***«*«*** 

SET  ESCAPE  OFF 
SELECT  PfilHABT 
SET  COLOR  TO  3  0,10 
SET  FOR  RAT  TO  SCREEN 
SET  CONSOLE  ON 
SET  PRINT  OFF 
*  Create  a  coctiaue  loop 
DO  WHILE  t 

CLEAR 

ERASE 

a  1,15  SAY  "  ♦♦♦*  AIRPLANE*  PART  SYSTEM  •♦♦♦*• 
a  3,1  SAY  •RAIN  MENU* 
a  3,60  SAY  DATEO 
a  7  ,  1  SAY  •  OPTIONS;  * 

a  9,1  SAY  '  0  EXIT  TO  OPERATING  SYSTEM* 

a  11,1  SAY  •  1  ADDITION  OPERATIONS* 

a  13,1  SAY  •  2  DELETION  OPERATIONS' 

a  15,1  SAY  '  3  HODIFICATION  OPERATIONS* 

a  9,45  SAY  *  4  REPORT  OPERATIONS' 

a  11,45  SAY  '  5  QUERIES  ' 

a  13,45  SAY  '  6  EXIT  TO  DBASE' 

a  20,1  SAY  *  SELECT  CHOICE  ' 

STORE  '  *  TO  choice 

WAIT  TO  choice 
DO  CASE 

CASE  choice  =  *0* 

CLEAR 

QUIT 

CASE  choice  =  '1* 

DO  addmenu 
USE 

CASE  choice  =  *2* 

DO  delmenu 


CASE  choice  = 

DO  oodimena 
USE 

CASE  choice  =  •4* 

DO  repomenu 
USE 

CASE  choice  =  *5* 

DO  gueoenu 
USE 

CASE  choice  =  '5* 

CANCEL 

OTHEBKISE 

SIOHE  1  TO  z 
DO  WHILE  Z<5 

a  30,5  SAY  "INVALID  CHOICE..  PLEASE  TRY  A3  AIN 
a  31,  5  SAY  CHR  (7) 

STORE  Z+1  TO  Z 
EMDDO 

ENOCASE 

END  DO  WHILE  t 

Addmenu.  pcg  *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AUTHOR  :  KONDYLCPOULOS  HARALA60S 

♦  DATE  ;  10-6-85 

♦  PURPOSE  :  THIS  PROGRAM  SELECTS  THE  REQUIRED  ADDITION 

♦  :  OPERATION  OF  THE  SYSTEM  BY  USING  MENU  DRIVEN 

♦  ;  CHOICE 

********************************************************* 

SET  ESCAPE  OFF 

SELECT  PRIMARY 

SET  COLOR  TO  20,5 

SET  TALK  OFF 

SET  FORMAT  TO  SCREEN 

SET  CONSOLE  ON 

♦  Create  a  continue  loop 


00  WHILE  t 

CLEAB 

ERASE 

a  1,15  SAY  '•♦♦♦  'AIRPLANE*  PARTS  SYSTEM 
a  3,1  SAY  'AOOHENO* 
a  3,60  SAY  DATEO 
3  7,1  SAY  *  OPTIONS:  * 

3  9,1  SAY  •  0  EXIT  TO  OPERATING  SYSTEM* 

a  11,1  SAY  '  1  ADDITION  OF  PARTS* 

a  13,1  SAY  *  2  ADDITION  OF  AIEPL_SIORES' 

a  15,1  SAY  '  3  ADDITION  OF  HEAPON_S  TORES • 

a  17,1  SAY  '  4  ADDITION  OF  JOMK_STORES' 

a  19,1  SAY  *  5  ADDITION  OF  ACESSOR_STORES' 

a  9,45  SAY  '  6  ADDITION  OF  SUPPLIERS  • 

a  11,45  SAY  *  7  ADDITION  OF  INVOICES* 

a  13,45  SAY  •  8  ADDITION  OF  ORDERS  • 

a  15,45  SAY  '  9  EXIT  TO  DBASE* 

a  17,45  SAY  '  X  EXIT  TO  MAIN  MENU* 

a  20,1  SAY  *  SELECT  CHOICE  * 

STORE  '  *  TO  choice 
WAIT  TO  choice 
DO  CASE 

♦  Execution  of  the  appropriate  program 
CASE  choice  =  *0* 

CLEAR 

QUIT 

CASE  choice  =  *1* 

DO  adpart 
USE 

CASE  choice  =  '2* 

DO  adarstr 
USE 

CASE  choice  =  *3* 

DO  advstr 


CASE  choice  =  *14* 
00  adjstr 
USE 

CASE  choice  =  'S' 
DO  adacstr 


USE 

CASE  choice  =  *5* 
00  adsuplr 
USE 

CASE  choice  =  *7’ 
00  adusage 
USE 

CASE  choice  =  *8* 
DO  adocdec 
USE 

CASE  choice  =  *9* 
CANCEL 


CASE  choice  =  'X*  .OR.  choice 
BEIURN 
USE 

OIHERNISE 

STORE  1  TO  Z 
DO  WHILE  z<10 

3  30,5  SAY  "INVALID  CHOICE. 
a  31, 5  SAY  CHR  (7) 

STORE  Z+1  TO  Z 
ENOOO 
ENDCASE 
ENOOO  WHILE  t 


•x* 


PLEASE  TRY  AGAIN" 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  Adpart.prg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AUTHOR  :  KONOYLOPOULOS  HARALABOS 

♦  DATE  :  10-10-85 

♦  PURPOSE  :  THIS  PROGRAM  ADDS  PARTS  INTO  INVENTORY  BY 

♦  :  AUTOMATIC  UPDATING  OP  THE  EFFECTED  STORE. 


SET  ESCAPE  OFF 


SET  COLOB  TO  30,14 


SET  TALK  OFF 


STORE  t  TO  flag 
*  Create  a  cootinae  loop 


DO  WHILE  t 


SELECT  PHI  51 A  BY 


USE  pacts  INDEX  parts 

STORE  *  '  TO  mpno 


ERASE 


a  1,15  SAY  «4t4t****4t4>  'PART - ADDITION  *********** 

a  3,1  SAY  'ADDING  TO  INVENTORY  ' 
a  4,60  SAY  DATEO 

a  15,1  SAY  'ENTER  PART  NUMBER  •  GET  mpno 
a  23,1  SAY  'ENTER  A  BLANK  TO  EXIT  TO  ADDMENU' 


R  EAD 


♦  Return  to  the  addmenu  for  a  blank  entry 
IF  $(mpno,  1,5)=  '  * 


RETURN 


ENDIF  $  (mpno,  1,5)=  '  * 

FIND  6 mpno 

*  Can  not  locate  the  record 


IF  #<>0 


SET  COLOR  TO  112,140 

a  21,1  SAY  'THAT  PART  IS  ALREADY  ON  FILE  ' 
a  22,40  SAY  CHR(7) 


SET  TALK  OFF 


STORE  1  TO  XX 


DC  WHILE  XX<35 


STORE  xx  +  1  TO  XX 


ENDDO  WHILE  xx<70 


SET  COLOR  TO  30,14 


LOOP 


ENDIF  #<>0 


EBASE 

a  1,15  SAI  •♦♦♦♦♦♦♦♦♦♦  f  PART — ADDITION  ************* 
a  3,1  SAY  'ADDING  TO  INVENTORY  • 
a  4,60  SAY  DATE  () 

STORE  •  •  TO  mdesc 

STORE  '  '  TO  marplt 

STORE  '  'TO  Bfflanfnm 

STORE  '  '  TO  marstrna 

STORE  *  '  TO  ffljuna 

STORE  '  '  TO  mwstrna 

STORE  '  *  TO  macstrna 

STORE  0  TO  mgoh 

STORE  0.0  0  TO  mcost 

EBASE 

a  6,1  SAY  'PART  NUMBER  •  -i-mpao 

a  7,1  SAY  'DESCRIPTION  '  GET  mdes= 

a  8,1  SAY  'ARPLANE  TYPE  '  GET  marplt 

a  9,1  SAY  'SOPPLIER.NAME  '  GET  mmanfnm 

a  10,1  SAY  '  ARPL_STORE_NAI1E  '  GET  marstrna 

a  11,1  SAY  '  JUANK_STOEE_NAME  •  GET  mjuna 

a  12,1  SAY  '  HEAP_STORE_NAf!E  '  GET  mwstrna 

a  13,1  SAY  • ACCES_STORE_NAME  '  GET  macstrna 

a  14,1  SAY  'QOH  •  GET  mgoh 

a  15,1  SAY  'COST  '  GET  mcost 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT' 

R  £AD 

*  Protect  the  system  from  addition  into  more 
*  than  one  file 

IF  $  (macstrna,  1 , 3)  <>  '  '  .  AND.  $(m  juna,  1,  3)  <>  '  ' 

.  AND.  $  (mwstrna,  1 ,  1)  O' .  AND.  $  (marstrna,  1,  3)  <>  '  ' 

SET  COLOR  TO  112,140 

a  17,15  SAY  '  THIS  IS  NOT  PART  OF  INVENTORY  ' 

SET  COLOR  TO  3)  ,  14 
LOOP 


ENDIF 
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IF  $(odesc,1f  5)  =•  * 

LOOP 

ENDIF 

*  add  the  record 
APPEND  BLANK 

REPLACE  acstrna  HITH  m acstrna , desc  UITH  mdesc 
REPLACE  Danfnm  HITH  nmanfnm,  arstrna  HITH  marstma 
REPLACE  arplt  HITH  oarplt,  vstrna  HITH  owstrna 
REPLACE  juna  HITH  mjuna 

REPLACE  pno  HITH  mpno^qoh  HITH  mgoh,cost  HITH  mcost 

*  Allow  the  system  to  add  the  entry  to  the  appropriate 

♦  file 
DO  CASE 

CASE  marstrna  <>  *  * 

SELECT  SECONDARY 

USE  arstores  INDEX  ars tores 


FIND 

&p.fflpno 

STORE 

« 

*  TO  maslfno 

ERASE 

3  6,1 

SAY  * 

ARSTRNA  :< 

*  p. marstrna 

3  7,1 

SAY  ' 

PART  NOHBER  ;* 

*  p.mpno 

3  8,1 

SAY  • 

DESCRIPTION 

+  p.  mdesc 

3  9,1 

SAY  * 

ARPLANE  TYPE;' 

p.marplt 

3  10, 

1  SAY  • 

QOH  ; 

*  ♦  STE(p.mqoh, 

3  11, 

1  SAY  ’ 

COST  : 

*  ST  R  (p.mcost 

SET  COLCR  TO 

112,140 

3  12, 

1  SAY  ' 

ASLFNO  ??  : 

'  SET  maslfno 

SET  COLOR  TO 

30,  14 

READ 

APPEND  BLANK 

REPLACE  arstrna  HITH  p.  marstrna,  pno  HITH  p.mpno 
REPLACE  aslfno  HITH  maslfno,  arplt  HITH  p.marplt 
REPLACE  qoh  HITH  p.mqoh,  desc  HITH  p.  mdesc 
REPLACE  cost  HITH  p.mcost 
CLEAR 
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LOOP 


CASE  wstrua  <>  • 


SELECT  SECONOABY 


OSE  VS  tores  INDEX  v  stores 


FIND  Sp.mpno 

STORE  •  •  TO  BWSlfno 


EBASE 


a  5,1  SAY  *HPSTOBES 
a  6,1  SAY  'PART  NUMBEB 
a  7,1  SAY  'DESCRIPTION 
a  8,1  SAY  *AaPLAN_TYPE 


: *  *  p.ovstrna 
: '  p.mpao 
:  '  p.  Bdesc 
; *  ♦  p.marpit 


a  9,1  SAY  'QOAHTITY  ON  HAND  :•  ♦  STB( p. aqoh, 5) 
a  10,1  SAY  'COST  :•  ¥  STR  (p.acost,3) 

SET  COLCB  TO  120,140 

a  11,1  SAY  * BSLFNO  ??  ;*  GET  awslfno 

SET  COLCR  TO  30,14 


BEAD 


APPEND  BLANK 


REPLACE  wstrna  WITH  p.  avstrna,  pno  WITH  p.  apno 
REPLACE  arplt  WITH  p.aarplt,  wslfno  NIIH  avslfno 
REPLACE  qoh  HITH  p.  aqob,  desc  WITH  p.  ad  esc 
REPLACE  cost  KITH  p.acost 


CLEAR 


LOOP 


CASE  ajaoa  <>  »  • 

SELECT  SECONDARY 

USE  juastores  INDEX  junstores 

FIND  Sp.apao 

STORE  '  «  TO  Bjslfno 


ERASE 


a  5,1  SAY  'JUNSTORES  :'  ♦  p.ajuna 

a  6,1  SAY  'PART_NUI!BER  :'  ♦  p.apno 

a  7,1  SAY  'DESCRIPTION  :'  ♦  p.adesc 

a  8,1  SAY  'QUAN_ON_HAND:'  ♦  STR  ( p. mqoh, 5) 

a  9,1  SAY  'COST  ;'  ♦  S TR ( p. acost ,8 ) 


■JVUWAT 


i.y  *..>  >  4  i.N  i.  A  f'l}  H 


SET  COLOR  TO  112,140 

3  10,1  SAY  'JUANK.SELF#  ;*  GET  mjslfno 
SET  COLOR  TO  30,14 
READ 

APPEND  ELANK 

REPLACE  juna  WITH  p.njuna,  pno  UITH  p.mpno 
REPLACE  jslfno  NIIH  Btjslfno,  qoh  RITH  p.fflqob 
REPLACE  desc  WITH  p.mdesc,  c3st  HITH  p. ncost 
CLEAR 
LOOP 

CASE  macstrna  <>  ' 

SELECT  SECONDARY 
USE  acstores  INDEX  acstores 
FIND  &  p.mpno 

STORE  •  '  TO  macslfno 

ERASE 

a  5,1  SAY  'ACCESS.STORES  ;* 
a  6,1  SAY  «PART_N0MBEE  :* 
a  7,1  SAY  'DESCRIPTION 
a  8,1  SAY  «AEPL_TYPE  :• 

a  9,1  SAY  'QOAN^ON^HAND  ;• 
a  10,1  SAY  'COST  :*  ♦  STR(p.  mcost,8) 

SET  COLOR  TO  112,140 

a  11,1  SAY  '  ACCES_SELF_#  ?:»  GET  macslfno 

SET  COLOR  TO  30,14 

READ 

APPEND  ELANK 

REPLACE  acstrna  HITH  macstrna,  pno  HITH  p.mpno 

REPLACE  acslfno  WITH  macslfno,  arplt  HITH  p.marplt 

REPLACE  cost  HITH  p.mcost,  acstrna  HITH  p. acstrna 

REPLACE  desc  HITH  p.mdesc,  qoh  HITH  p.qoh 

CLEAR 

LOOP 

OTHERHISE 

a  18,10  SAY  'THIS  IS  NOT  PART  OP  THE  INVENTORY  ' 


*■  macstrna 

*  p.  mpno 

*  p.  mdesc 

*  p.marplt 
STR(p.aqob,  5) 


CLEAR 

LOOP 


E  NOCASE 
EHDOO  NHILE  t 


Adsuplc.pcg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

*  AOTHOR  :  KONOZLOPOOLOS  HARAL 

♦  DATE  :  10-25-85 

*  PURPOSE  :  THIS  PROGRAM  IS  USED  FOR  ADDING  NEW  SUPPLIERS 

♦  :  INTO  INVENTORY 

«*«**«*  4>«*«  «««»«*«  ««««««*  *««*«*««** 


SET  ESCAPE  OFF 
SET  COLOR  TO  30,14 
SET  TALK  OFF 
SELECT  PRIMARY 

USE  suppliers  INDEX  suppliers 
♦  enter  suppliers 
DO  WHILE  t 

STORE  '  *  TO  nmanfam 

ERASE 

a  1,1  SAY  •'♦♦♦  ’SUPPLIERS — ADDITION 
a  3,1  SAY  'ADDING  TO  INVENTORY  • 
a  3,60  SAY  OATEO 

a  15,1  SAY  "ENTER  SUPPLIER'S.  NAME  "  GET  amaafnm 
a  23,1  SAY  'ENTER  A  BLANK  TO  EXIT' 

STORE  1  (ooanfDB)  TO  Boanfum 
READ 

IF  $  (BBailfXlB,1,S)  =  '  ' 

RETURN 

ENDIF 

FIND  &Bnaa£nB 
IF  #<>0 

a  22,1  SAY  "THIS  SUPPLIER'S  NAME  ALREADY  " 
a  22,2  SAY  "  ON  THE  PILE  " 
a  22,60  SAY  CHR<7) 
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SET  TALK  OFF 


STORE  1  TO  XX 


DC  WHILE  xx<20 


STORE  XX +1  TO  XX 


EHOOO  WHILE 


LOOP 


ENDIF  #O0 


ERASE 


5>  1,1  SAY  'SOPPLIER'S — ADDITION  »♦♦♦• 

a  2,1  SAY  'ADDING  TO  INVENTORY  » 
a  2,6  0  SAY  DATE  () 


STORE 


STORE 


STORE 


STORE 


STORE 


STORE 


*  TO  mnanfadc 


'  TO  ozip:co 
'  TO  mcountry 
'  TO  niarplt 
*  TO  ffldel:tiae 

'  TO  aproduct 


ERASE 


a  4,1  SAY  ''SUPPLIEfi«S_NAaB  «♦  BBaafna 
a  5,1  SAY  "SOPPLIER'S  ADDRE  "GET  Bmanfadr 

a  6,1  SAY  'ZIP;CODE  •  GET  BZipico 

a  7,1  SAY  'COUNTRY  '  GET  Bcountry 

a  8,1  SAY  'ASPL_TYPE_SOPPOEI'  GET  Barplt 

a  9,1  SAY  'DELIVERY  TIME  '  GET  Bdelrtiae 
a  10,1  SAY  'PRODUCT  '  GET  Bproduct 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT' 


READ 


IF  $  (BaanfnB,  1, 1)=  '  ' 


RETURN 


ENDIF 


«  add  the  record 


APPEND  BLANK 


REPLACE  aanfna  WITH  BaanfnB,  aanfadr  WITH  aaaafadr 
REPLACE  zip: CO  WITH  Bzipzco,  country  WITH  mcountry 
REPLACE  del:tiae  WITH  adel:tiae,  arplt  WITH  marplt 


t  W  ■  WtiUHW  M  W.  n  M  H  ."W  I 


fiEPL&CE  product  HITH  ■  product 
END  DO  WHILE  t 

**41  ***« «««*««««  Adorder  «**««««**«««** «**#**««  **4i*«4e*4c 

*  ADTHOB  :  KONDILOPQOLOS  HABALABOS 

*  DATE  :  10-15-85 

*  PUBPOSE  :  THIS  PBOGBAH  ADDS  NEW  OBDEfiS  INTO  OBDEB 

*  :  FILE 

SET  ESCAPE  OFF 

SET  COLCB  TO  30,14 

SET  TALK  OFF 

SELECT  PBINABI 

OSE  orders  INDEX  orders 

*  enter  orders 
DO  WHILE  t 

STOBE  *  *  TO  nordno 

EBASE 

a  1,1  SAY  •CBDEB- -ADDITION  •♦♦♦♦*♦♦*♦♦« 

a  3,1  SAY  •ADDING  TO  INTENTOBY  • 
a  3,60  SAY  DATEO 

a  15,1  SAY  '’ENTEB  OBDEB.  NOHBEB  "  GET  uordno 
a  23,1  SAY  'ENTEB  A  BLANK  TO  EXIT* 

BEAD 

IF  $( nordno,  1, 5)  =  •  • 

BETUBN 

ENDIF 

FIND  Snordno 
IF  #<>0 

a  22,1  SAY  'THIS  OBDEB  NUNBEB  ALBEADY  EXIST  • 
a  22,3  SAY  •  ON  FILE  • 
a  22,60  SAY  CHE(7) 

SET  TALK  OFF 
STOBE  1  TO  XX 
DO  WHILE  XX<20 


STOBE  ZX>1  TO  zx 
ENDOO  WHILE 
LOOP 
ENOIF  too 
ERASE 

a  1,1  SAY  •♦♦♦♦♦♦♦♦♦♦  'OROER — ADDITION  •♦♦♦♦♦*♦♦♦♦♦* 
a  2,1  SAY  ’ADDING  TO  INVENTORY  * 
a  2,60  SAY  DATE  () 

STORE  •  '  TO  mpno 

STORE  '  *  TO  Idesc 

STORE  •  *  TO  mdate 

STORE  *  '  TO  mordna 

STORE  '  '  TO  BnaafniB 

STORE  0  TO  aqnt 
STORE  0.00  TO  mcost 
ERASE 

a  4,1  SAY  ••ORDEE_HaHBER  '•  ♦  aordno 

a  5,1  SAY  "DATE  "  GET  mdate 

a  6,1  SAY  'PNO  •  GET  apno 

a  7,1  SAY  ’DESCRIPTION  ’  GET  mdesc 

a  8,1  SAY  ’NAME  OF  THE  ORDERER  ’  GET  mordna 

a  9,1  SAY  ’SUPPLIER  '  GET  amaafnm 

a  10,1  SAY  ’QUANTITY  ORDERED  ’  GET  mqnt 
a  11,1  SAY  ’COST  ’  GET  mcost 

a  23,1  SAY  ’ENTER  A  BLANK  DESCRIPTION  TO  EXIT’ 

READ 

IF  $  (mmanfnm,  1,  1)  =  ’  ’ 

RETURN 

ENDIF 

*  add  the  record 
APPEND  BLANK 

REPLACE  manfnm  WITH  mmanfnm,  ordno  WITH  mordno 
REPLACE  pno  WITH  mpno,  desc  WITH  mdesc,  qnt  WITH  mqnt 
REPLACE  cost  WITH  mcost,  ordna  WITH  mordna, 

REPLACE  date  WITH  mdate 


END  DO  WHILE  t 

«»**«*« **4i**««*  Adusage.  prg  ♦«*««*****«****4i4t«>K*4i**4>«***»* 

*  AUTHOB  :  K0NDIL0P003S  HABALABOS 

*  DATE  :  10-9-85 

«  POBPOSE  :  THIS  PBOGBAH  ADDS  INVOICES  INTO  OSAGE  FILE 

*  :  BY  USING  THE  PABT  NDMBEB 

4i««4i*4i4i4>«*4t«*«*4i**«*«**«*««*««****4i*«*  **m**1f************** 

SET  COLCH  TO  30,14 
SET  TALK  OFF 
SET  ESCAPE  OFF 
SELECT  PBIMABY 
OSE  usage  INDEX  usage 

*  enter  orders 
DO  WHILE  t 

STOBE  '  '  TO  apno 

EBASE 

a  1,1  SAY  "♦♦♦♦♦♦*♦  ♦INVOICE — ADDITION  ♦♦♦♦*♦♦♦♦•• 
a  3,1  SAY  ♦ADDING  TO  INVENTOBY  ♦ 
a  3,60  SAY  DATEO 

a  15,1  SAY  "ENTEB  PABT.NOHBER  ••  GET  Bpno 
a  23,1  SAY  ♦ENTEB  A  BLANK  TO  EXIT^ 

BEAD 

IF  $  (npDO,1, 1)=  •  * 

BETOBN 

ENDIF 

FIND  Sopno 
IF  #  <>  0 

a  22,1  SAY  ♦THIS  PABT  HAVE  BEEN  REGISTER  TO  ' 
a  22,3  SAY  ♦THE  FILE* 

a  22,60  SAY  CHR(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DO  WHILE  XX<20 

STORE  XX +  1  TO  XX 
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ENODO  WHILE 
ICOP 
EHDIF  *O0 
EBASE 

a  1,1  SAY  •♦♦♦♦♦♦♦  'INVOICE — ADDITION  •♦♦♦♦♦♦♦♦♦• 
a  2,1  SAY  'ADDING  TO  INVENTORY  « 
a  2,60  SAY  DATE  () 

STORE  *  '  TO  miavno 

STORE  •  '  TO  idesc 

STORE  '  '  TO  Bdate 

STORE  '  '  TO  maname 

STORE  «  «  TO  nuaddr 

STORE  0  TO  nqnt 
STORE  0.00  TO  Boost 
EBASE 

a  4,1  SAY  "PAET^NaHBER  '•  ♦  apno 

a  5,1  SAY  "DATE  "  GET  adate 

a  6,1  SAY  * INVOICE  NOHBER  •  GET  ainvno 

a  7,1  SAY  •DESCRIPTION  •  GET  mdesc 

a  8,1  SAY  'NAME  OF  THE  ORDERER  *  GET  aunaae 

a  9,1  SAY  •SUPPLIER  •  GET  auaddr 

a  10,1  SAY  •QUANTITY  RECEIVED  •  GET  mqnt 
a  11,1  SAY  •COST  •  GET  mcost 

a  23,1  SAY  •ENTER  A  BLANK  DESCRIPTION  TO  EXIT^ 

READ 

IF  $(ainviio,  1,  1)  =•  • 

RETURN 

ENDIF 

*  add  the  record 

APPEND  BLANK 

REPLACE  iavno  WITH  Binvno,  uname  WITH  Bunaae 
REPLACE  pno  WITH  apno,  desc  WITH  adesc,  qnt  WITH  Bqat 
REPLACE  cost  WITH  Bcost,  uaddr  WITH  auaddr 
REPLACE  date  WITH  adate 
END  DO  WHILE  t 
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Aiarstr.prg  ♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AOTHOfi  :  KONDYLOPOOLOS  HABALABOS 

♦  DATE  ;  10-18-85 

♦  POEPOSE  :  THIS  PfiOGBAM  ADDS  MEH  AIB PLAHE_STORES  INTO 

♦  :  THE  SYSTEM 

♦♦*♦♦♦*♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*  4i4t*»4i«*4i4t««4t4i«4E*«4i4t 

SET  ESCAPE  OFF 

SIT  COLOR  TO  30,14 

SELECT  PBIHABY 

USE  ars tores  INDEX  ars tores 

STORE  t  TO  flag 

♦  enter  airplane's  stores 
DO  WHILE  flag 

STORE  '  •  TO  aarstrna 

ERASE 

a  1,1  SAY  «♦♦♦♦  'ARPL^SIORES - ADDITION 

a  2,1  SAY  'ADDING  TO  INVENTORY  ' 
a  3,60  SAY  OATEO 

a  15,1  SAX  'ENTER  A&PL_STOEE_NAME  '  GET  marstrna 
a  23,1  SAY  'ENTER  A  BLANK  TO  EXIT' 

READ 

IF  $ (sarstrna,1 ,5)  =  •  * 

BETOBN 

ENDIF  $(Bpno,1,5)=  *  ' 

FIND  &Barstrna 
IF  #<>0 

a  22,1  SAY  'THIS  ARPL_STORE  ALREADY  EXIST  ON  • 
a  22,3  SAY  '  FILE  ♦ 
a  22,60  SAY  CHR(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DC  WHILE  XX<20 

STORE  ZZ4-1  TO  ZX 
ENDDO  WHILE 


LOOP 
ENDIF  #<>0 


ERASE 

a  1,1  SAY  •♦♦♦♦♦♦♦♦  • ARPL_STORES--ADDITION 
a  2,1  SAY  'ADDIMG  TO  INVEHTORY  * 
a  2,60  SAY  DATE  () 

STORE  *  •  TO  mpno 

STORE  *  •  TO  mdesc 

STORE  •  *  TO  maslfno 

STORE  '  •  TO  marplt 

STORE  0  TO  mgoh 
STORE  0.00  TO  mcost 
a  4,1  SAY  •ARPL_STORE_NAHE 
a  5,1  SAY  *PART  NOHBER 
a  6,1  SAY  'DESCRIPTIOH 

a  7,1  SAY  *AEPL_SELF_NDHBEE  •  GET  maslfno 
a  8,1  SAY  'ARPLANE  TYPE 
a  9,1  SAY  •QNT_ON_HAND 
a  10,1  SAY  »COSI 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT* 
READ 

IF  $  (mpno,  1,1)  =  *  * 

RETURN 
ENDIF 

*  add  the  record 


' +  marstrna 
*  GET  mpno 
'  GET  mdesc 


*  GET  marplt 
'  GET  mgoh 
'  GET  mcost 


APPEND  BLANK 

REPLACE  pno  WITH  mpno,  desc  WITH  mdesc 
REPLACE  arstrna  WITH  marstrna,  arplt  WITH  marplt 
REPLACE  aslfno  WITH  maslfno, goh  WITH  mgoh 
REPLACE  cost  WITH  mcost 
ENDDO  WHILE  t 

AdWStr.prg  4>4i***4t* 

*  AUTHOR  :  KONDYLOPCULOS  HABALABOS 

♦  DATE  :  10-19-85 
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♦  POHPOSE  :  THIS  PBOGBAH  ADDS  NEM  WEAPON  SIOfiES  INTO 

♦  :  INVENTORY 

***  4i«*«4>***«««***4t««4t«**  *««« *«««*«* 

SET  ESCAPE  OFF 
SET  COLOR  TO  30,14 
SELECT  PRINARY 
SET  TALK  OFF 

USE  wstores  INDEX  wstoces 
STORE  t  TO  flag 

♦  enter  weapon's  stores 
DO  WHILE  flag 

STORE  '  *  TO  nwstrna 

ERASE 

a  1,1  SAY  '♦♦♦♦♦  • WEAPON_STORES - ADDITION  ******** 

a  2,1  SAY  'ADDING  TO  INVENTORY  ' 
a  3,60  SAY  DATEO 

a  15,1  SAY  'ENTER  HEAPON_STORE_NAME  '  GET  mwstrca 
a  23,1  SAY  'ENTER  A  BLANK  TO  EXIT' 

READ 

IF  $  (mwstrna,1,5)=  '  ' 

RETURN 

ENDIF  $  (mwstrna,1,5)=  '  ' 

FIND  SoHstma 
IF  #<>0 

a  22,1  SAY  'THIS  WEAPON_STORE  ALREADY  EXIST  ' 
a  22,3  SAY  '  ON  FILE  ' 
a  22,60  SAY  CHR(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DC  WHILE  xx<20 

STORE  XX +  1  TO  XX 
END DO  WHILE 
LCOP 
ENDIF  #<>0 
ERASE 
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a  1,1  SAY  •♦♦♦♦  »HEAPON_STORES — ADDITION  *♦♦♦♦♦« 
a  2,1  SAY  'ADDING  TO  INVENTOBY  • 
a  2,6  0  SAY  DATE  () 

STOBE  '  '  TO  mpQO 

STORE  '  •  TO  mdesc 

STORE  '  •  TO  BMslfno 

STOBE  '  •  TO  marplt 

SIOBE  0  TO  mqoh 
STORE  0-00  TO  mcost 
ERASE 

a  4,1  SAY  'HEAP_STOBE_NAME 
a  5,1  SAY  'PART  NOHBEB 
a  6,1  SAY  'DESCRIPTION 
a  7,1  SAY  'WEAP_SELF_NOi!BER 
a  8,1  SAY  'ARPLAME  TYPE 
a  9,1  SAY  'QNT_ON_HAND 
a  10,  1  SAY  'COST 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT' 
READ 

I F  $  (  apno,  1,1)='  ' 

RETOBN 
ENDIF 

*  add  the  record 
APPEND  BLANK 

REPLACE  pno  BITH  fflpno,desc  WITH  mdesc 
REPLACE  wstrna  WITH  fflwstrna,  arplt  WITH  marplt 
REPLACE  wslfno  WITH  mwslfno,30h  WITH  mgoh 
REPLACE  cost  WITH  mcost 
END  DO  WHILE  t 


*  mwstrna 
GET  mpao 
GE  T  mde  sc 
GET  ffiwslfQO 
GET  marplt 
GET  mgoh 
'  GET  mcost 


Adjstr.prg  ♦♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦ 

♦  AOTHOB  :  KONDYLOPOULOS  HARALABOS 

♦  DATE  :  10-19-85 

♦  PURPOSE  :  THIS  PROGRAH  ADDS  NEW  JUNK  STORES  INTO  THE 


* 


:  SYSTEM 
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****^********^** 


i 


'J 


SET  ESCAPE  OFF 
SET  COLCfi  TO  30,14 
SELECT  PBIMABY 
SET  TALK  OFF 

OSE  juQstoces  INDEX  junstores 
STOBE  t  TO  flag 

♦  enter  junk's  stores 

*  Create  a  continue  loop 
DO  WHILE  flag 

STOBE  '  '  TO  mjuna 

EBASE 

a  1,1  SAY  '♦♦♦♦♦  •JUNK_STOEES - ADDITION  •♦♦♦*♦♦• 

a  2,1  SAY  'ADDING  TO  INVENTOBY  ' 
a  3,60  SAY  DATEO 

a  15,1  SAY  'ENTEfi  JUNK_STORE_NAME  '  GET  mjuna 
a  23,1  SAY  'ENTEB  A  BLANK  TO  EXIT' 

BEAD 

IF  $(mjuna,  1,1)='  ' 

BETOBN 

ENDIF  $  (mjuna,  1,1)=  '  • 

FIND  &mjuna 


IF  #<>0 


a  22,1  SAY  'THIS  JUNK_STORE  ALBEADY  EXIST  ON  ' 
a  22,3  SAY  '  FILE  ' 
a  22,60  SAY  CHB(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DO  WHILE  xx<20 

STORE  XX* 1  TO  XX 


ENDDO  WHILE 
LOOP 
ENDIF  too 
ERASE 

a  1,1  SAY  '♦♦♦*  'JUNK_STORES  —  ADDITION  »♦♦♦*♦• 


.1-  O  k"*  .N  V.  ..V’ ■  %  .N  '  ' 


•-V'.'V'V','.' 


3)  2,1  SAY  'ADDING  TO  INVENTORY  • 

3  2,60  SAY  DATE  () 

STORE  *  •  TO  mpno 

STORE  *  *  TO  mdesc 

STORE  *  *  TO  mjslfno 

STORE  *  •  TO  marplt 

STORE  0  TO  mgoh 

STORE  0.00  TO  mcost 

ERASE 

a  4,1  SAY  *JaNK_STOEE_NAl!E  mjuna 

a  5,1  SAY  'PART  NUMBER  •  GET  mpno 

a  6,1  SAY  'DESCRIPTION  '  GET  mdes= 

a  7,1  SAY  'JONK_SELE_NOMBER  '  GET  mjslfno 

a  3,1  SAY  'QNT_ON_HAND  '  GET  mqoh 

a  9,1  SAY  'COST  '  GET  mcost 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT' 

READ 

IP  $(mpno,1,1)  =  '  ' 

RETURN 

ENDIF 

♦  add  the  record 
APPEND  BLANK 

REPLACE  pno  WITH  mpno,desc  WITH  mdesc, juna  WITH  mjuna 
REPLACE  jslfno  WITH  mjslfno, goh  WITH  mgoh 
REPLACE  cost  WITH  mcost 
END  DO  WHILE  t 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  Adacstr.prg  ♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AUTHOR  :  KONDYLOPOULOS  HARALABOS 

♦  DATE  :  10-2-85 

♦  PURPOSE  :  THIS  PROGRAM  ADDS  NEW  ACESSORIES  STORES  INTO 

♦  :  THE  SYSTEM 

ti^**ilf:it***^***it*****A‘**  ******  **********  ********************* 


'ufnnuvuv 


*B*WT 


SELECT  PfilHAfiX 

USE  acs tores  INDEX  acstores 

STOEE  t  TO  flag 

*  enter  accessories  stores 

00  NHILE  flag 

STORE  '  *  TO  Bacstrna 

ERASE 

a  1,1  SAY  • AC ESSORIES_S TORES - ADDITION  •♦♦♦♦♦« 

a  2,1  SAY  'ADDING  TO  INVENTORY  « 
a  3,60  SAY  DATEO 

a  15,1  SAY  'ENTER  ACESSSOR_Sr 0EE_NAME  '  GET  macstrna 
a  23,1  SAY  'ENTER  A  BLANK  TO  EXIT' 

READ 

IF  $  (macstrna,  1 , 1)  s  '  ' 

RETOBN 

ENDIF  $  (macstrna,  1 ,  1)=  '  ' 

FIND  &  macstrna 
IF  #<>0 

a  22,1  SAY  'THIS  ACESSOR_STORE  ALREADY  EXIST  ' 
a  22,3  SAY  '  ON  FILE  ' 
a  22,60  SAY  CHB(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DC  WHILE  XX<20 

STORE  XX +1  TO  XX 
ENDOO  WHILE 
LOOP 
ENDIF  #O0 
ERASE 

a  1,1  SAY  '♦♦♦♦  'ACESSORIES_STORES— ADDITION  ******** 
a  2,1  SAY  'ADDING  TO  INVENTORY  ' 
a  2,60  SAY  DATE  () 

STORE  '  '  TO  mpno 

STORE  '  '  TO  mdesc 

STORE  '  '  TO  macslfno 
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V. 


STORE  •  *  TO  aarplt 

STORE  0  TO  mqoh 
STORE  0.00  TO  DCOSt 

a  4,1  SAY  »ACESS_SIORE_SAHE  macstma 

a  5,1  SAT  *PART  NOEBEB  '  GET  fflpno 

a  6,1  SAY  ’DESCRIPTION  '  GET  adesc 

a  7,1  SAY  *ACESS_SELP_NOMBER*  GET  aacslfno 
a  8,1  SAY  ’ARPLANE  TYPE  *  GET  aarplt 

a  9,1  SAY  •CNT_0N_HAND  '  GET  aqoh 

a  10,1  SAY  'COST  '  GET  mcost 

a  23,1  SAY  'ENTER  A  BLANK  DESCRIPTION  TO  EXIT' 

READ 

IF  $(apiio,1, 1)  =  '  ' 

RETURN 

ENDIP 

*  add  the  record 
APPEND  BLANK 

REPLACE  poo  WITH  apoo, desc  WITH  Bdess 
REPLACE  acstrna  WITH  aacstrna,  arplt  WITH  aarplt 
REPLACE  acslfno  WITH  aacslfno,  qoh  NITH  aqoh 
REPLACE  cost  WITH  BCOSt 
END  DO  RRILE  t 

Delaenu.  prq  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦ 

♦  AUTHOR  :  KONDYLOPCULOS  HARALABOS 

♦  DATE  :  10-11-85 

♦  PURPOSE  :  THIS  PROGRAM  SELECTS  THE  REQUIRED  DELETION 

♦  :  OPERATION,  BY  USING  MEND  DRIVEN  CHOICE 

4i4i4i4t4i4c4e  4e 4^4(41 41  4c  41**41  ***************** 

SET  ESCAPE  OFF 
SELECT  PRIMARY 
SET  COLOR  TO  20,5 
SET  TALK  OFF 
SET  FORMAT  TO  SCREEN 
SET  CONSOLE  ON 


DO  WHILE  t 

CLEAfi 

ERASE 

a  1,15  SAY  •*♦♦♦♦  •AIEELAHE»  PARTS  SYSTEM  «*♦♦♦" 
9  3,1  SAY  'DELMENO* 
a  3,60  SAY  DAI£() 

9  7,1  SAY  *  OPTIONS:  • 

a  9,1  SAY  *  0  EXIT  TO  OPERATING  SYSTEM* 

a  11,1  SAY  *  1  DELETION  OF  PARIS* 

a  13,1  SAY  *  2  DELETION  OP  AIRP  L_STOEES  * 

a  15,1  SAY  *  3  DELETION  OP  WEAPOH_S TORES* 

a  17,1  SAY  *  4  DELETION  OF  SUPPLIERS* 

a  9,4  5  SAY  *  5  DELETION  OF  JUNK  STORES* 

a  11,45  SAY  *  6  DELETION  OF  ACCES_STOEES* 

a  13,45  SAY  *  7  DELETION  OF  ORDERS* 

a  15,45  SAY  *  8  DELETION  OF  INVOICES* 

a  17,45  SAY  *  9  EXIT  TO  MAIN  MEND* 

a  19,30  SAY  *  X  EXIT  TO  DATABASE* 

a  2  0,1  SAY  *  SELECT  CHOICE  * 

STORE  '  *  TO  choice 
WAIT  TO  choice 
DO  CASE 

CASE  choice  =  *3* 

CL  FAR 
QUIT 

CASE  choice  =  *1* 

DO  depart 
USE 

CASE  choice  =  *2* 

DO  dearstr 
USE 

CASE  choice  =  *3* 

DO  dewstr 
USE 

CASE  choice  =  *4* 


Wli 


i 


•'*X 

''I 

I.*  f.i 

L#J 


i, 

m 

w 

m 

®!!! 

j 

*1*0 

•'M 

'■?« 

wS: 


‘"“i 


00  desuplr 


C&SE  choice  =  *5’ 


DO  dejstr 


CASE  choice  =  *6* 
DO  deacstr 


CASE  choice  =  •!* 
CL£AB 
DO  deocdec 


CASE  choice  =  'S* 
00  deusage 


CASE  choice  =  *9* 
BEIORN 


CASE  choice  *  'X*  .OR.  choice  *  ‘x* 

CANCEI 

OTHEBHISE 

STCBB  1  TO  z 
DO  WHILE  Z<5 

3  30,5  SAY  "INVALID  CHOICE..  PLEASE  TRY  AGAIN  " 
a  31 ,5  SAY  CHR  (7) 

STORE  Z+1  TO  Z 
ENDDO 
ENDCASE 
ENDDO  WHILE  t 

Depart,  prg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦ 

♦  AUTHOR  ;  KONDYLOPOOLOS  HARALABOS 

♦  DATE  ;  10-15-85 

♦  PURPOSE  ;  THIS  PROGRAM  DELETES  PARIS  FROM  THE  INVENTORY 

♦  :  SYSTEM  MASTER  FILE  WITH  AUTOMATIC  UPDATING 


J* 

t 


*  :  OF  THE  EFFECTED  FILE 

******  *«***4t4i««*««***4t««««4i«**«««**«***««****«*«*4>«««4««*4i* 


SET  COLOR  TO  30,22 


DO  HHILE  t 


SELECT  PBIHARI 


OSE  parts  INDEX  parts 


ERASE 


STORE  *  '  10  opno 

3  2, 1  SAY  'DELETING  FROM  PART  FILE  * 
a  2,60  SAY  DATEO 

a  4,20  SAY  '  ENTER  PART  NUMBER  *  GET  apno 
a  23,1  SAY  •  ENTER  A  BLANK  TO  EXIT  TO  DELMENO  • 


READ 


IF  $(«pno,  1,1)  =  •  • 


RE TORN 


ENDIF 


FIND  Sopno 


IF  #  *  0 


ERASE 


SET  COLOR  TO  112,140 

a  22,1  SAY  *  THAT  PART  IS  NOT  ON  THE  FILE  I!!  * 
a  22,3  SAY  '  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,14 
a  23,1  SAY  CHR  (7) 


SET  TALK  OFF 


STORE  1  TO  Z 


DO  HHILE  z<33 


STORE  Z  +  1  TO  z 


ENCDO  HHILE 


LOCP 


ENDIF  *  =  0 


STORE  • 


*  TO  Ddesc 


STORE  ' 


'  TO  Bar  pit 


STORE  • 


*  TO  BBaafna 


STORE  • 


*  TO  marstrna 


STORE  *  '  TO  mvstrna 

STORE  •  •  TO  aacstrna 

STORE  *  *  TO  mjana 

STORE  0  TO  aqoh 

STORE  0.00  TO  acost 

STORE  desc  TO  mdesc 

STORE  arplt  TO  aarplt 

STORE  rnanfan  TO  aoanfam 

STORE  arstrna  TO  aacstcna 

STORE  wstrna  TO  nwstrna 

STORE  jam  TO  ffljuna 

STORE  acstcna  TO  aacstrna 

STORE  qoh  TO  mqoh 

STORE  cost  TO  mcost 

ERASE 

a  2,1  SAY  'DATA  OF  THE  RECORD  • 
a  2,60  SAY  0ATE() 

a  6,1  SAY  'PART  NOMBER  :»  ♦apno 

a  7,1  SAY  'DESCRIPTION  :»  ♦mdesc 

a  8,1  SAY  'AIRPLANE  TYPE  :*  ♦marplt 

a  9,1  SAY  'SUPPLIERS  NANE  i-maanfaffl 

a  10,1  SAY  'ARPL_STOEE_NAME  :'  +marstrna 

a  11,1  SAY  ' JONK_STOEE_NAME  :'  ♦mjuna 

a  12,1  SAY  »HEAPON_STO_NAME  :'  ♦BWStrna 

a  13,1  SAY  '  ACCES_STO_NAME  :'  ♦macstcna 

a  14,1  SAY  'QOH  ;•  ♦STR(aqoh,5) 

a  15,1  SAY  'COST  :'  tSTR  (lBCOSt,8) 

a  18,20  SAY  'PLEASE  BE  PATIENT-...' 
a  19,20  SAY  'THIS  WILL  TAKE  TIME  1* 

DELETE 
PACK 
DO  CASE 

CASE  oarstrna  <>  '  ' 

SELECT  SECONDARY 

USE  arstores  INDEX  arstores 


FIHD  Gipno 
DEL  ETE 
PACK 
CLEAR 
LOOP 

CASE  evstma  <>  '  ' 

SELECT  SECOHOARI 

USE  vstores  INDEX  vstoces 

FIND  Gapno 

DELETE 

PACK 

CLEAR 

LOOP 

CASE  ajuna  <>  '  • 

SELECT  SECONDARY 

USE  junstores  INDEX  junstores 

FIND  Snpno 

DELETE 

PACK 

CLEAR 

LOOP 

CASE  aacstma  <>  •  ' 

SELECT  SECONDARY 
USE  acstores  INDEX  acstores 
FIND  Gapno 
DELETE 
PACK 
CLEAR 
ENDDO  WHILE  t 

DeSU  plr.  pC?  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AUTHOR  :  KONDYLOPOULOS  HARALABOS 

♦  DATE  :  10-11-85 

♦  PURPOSE  :  THIS  PEOGRAH  DELETES  SUPPLIERS  OF  THE  SYSTEM 
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SET  COLOB  TO  30,22 
SET  TALK  OFF 
SET  ESCAPE  OFF 
DO  WHILE  t 

SELECT  PBIHABY 

OSB  suppliers  INDEX  suppliers 
ERASE 

STORE  *  *  TC  amaafun 

a  2,1  SAY  'DELETING  FROM  SUPPLIERS  FILE  • 
a  2,60  SAY  DATEO 

a  4,20  SAY  •  ENTER  SUPPLIER  NAME  •  GET  mmanfam 
a  23,1  SAY  *  ENTER  A  BLANK  TO  EXIT  TO  DELMENU  ' 
READ 

IF  S  (Bsaufiim,  1 ,1)  =  *  * 

RETURN 


ENDIF 

FIND  SumanfuB 
IF  #  =  0 
ERASE 

SET  COLOR  TO  112,140 

a  22,1  SAY  *  THAT  PART  IS  NOT  ON  THE  FILE  .'I! 
a  22,3  SAY  '  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,14 
a  23,  1  SAY  CHR  (7) 

SET  TALK  OFF 
STORE  1  TO  Z 
DO  WHILE  Z<30 


STORE  2  +  1  TO  Z 
ENCDO  WHILE 
LOOP 


ENDIF 

# 

=  0 

STORE 

f 

*  TO 

STORE 

1 

'  TO 

ozi p:co 

STORE 

1 

*  TO 

acountry 

STORE 

f 

«  TO 

oar pit 

I 
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STOfi£  *  *  TO  Bdel:tiBe 

STORE  '  •  TO  Bproduct 

STORE  Banfadr  TO  BBanfadc 
STORE  Banfna  TO  aaanfSB 
STORE  zip:co  TO  Bzip:co 
STORE  country  TO  acountry 
STORE  product  TO  aproduct 
STORE  del:tiae  TO  adelitiae 
STORE  arplt  TO  aarpit 
ERASE 

3  2,1  SAY  *OATA  OF  THE  RECORD  * 
a  2,60  SAY  OATEO 
a  6,1  SAY  *SUPPLIEfi  RAHE  :• 

SET  COLOR  TO  20,10 
a  6,20  SAY  *  1  (aaanfna) 

SET  COLOR  TO  30,14 
a  7,1  SAY  'SOPPLIER  ADDRESS  :• 


a  8,1  SAY  *aiP  CODE  :• 

a  9, 1  SAY  'COUHIRY  :» 

a  10,1  SAY  ’ARPLAHE  TYPE  :• 

a  11,1  SAY  'DELIVERY  TIME  :* 

3  12,1  SAY  'PRODUCT  :  ' 


a  18,20  SAY  'PLEASE  BE  PATIENT.. 

DELETE 

PACK 

END  DO  WHILE 


^-aaanfadr 
♦zip;co 
♦ac ountry 
♦Barplt 
-'-Bdel:  tiae 
♦aproduct 


Deordcr.prg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦ 

♦  AOTHOR  :  KONDYLOPOULOS  HARALABOS 

♦  DATE  :  10-14-85 

♦  PURPOSE  :  THIS  PROGRAM  DELETE  ORDERS  FROM  THE  SYSTEM 

SET  COLOR  TO  30,22 
SET  TALK  OFF 
SET  ESCAPE  OFF 
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00  WHILE  t 

SELECT  PBIHABT 

OSE  orders  INDEX  orders 

EBASE 

STOBE  *  '  TO  Bordno 

a  2,1  SAX  «DELEIING  FBOH  OBDEB  FILE  ' 
a  2,60  SAX  DATEO 

a  4,20  SAX  *  ENIEB  OBDEB  NOHBEB  *  GET  Bordno 
a  23,1  SAX  •  ENTEfi  A  BLANK  TO  EXIT  TO  DELHENO  ' 
BEAD 

IF  $  (Bordno,1 , 1)  =  *  • 

BETOBN 

END  IF 

FIND  Saordno 
IF  #  =  0 
EBASE 

SET  COLOE  TO  112,140 

a  22,1  SAX  '  THAT  PABT  IS  NOT  ON  THE  FILE  II!  * 
a  22,3  SAX  '  PLEASE  IBX  AGAIN  * 

SET  COLOB  TO  30,14 
a  23,1  SAX  CHB  (7) 

SET  TALK  OFF 
STOBE  1  TO  Z 
DO  WHILE  Z<30 

STOBE  Z+1  TO  Z 
ENDDO  WHILE 


LOOP 

ENDIF  #  =  0 

STOBE  • 

»  TO  adesc 

STOBE 

« 

*  TO  adate 

STOBE 

1 

*  TO  aaanfna 

STOBE 

f 

*  TO  aordna 

STOBE 

f 

•  TO  apno 

STOBE  0  TO  Bqnt 
STORE  0.00  TO  Bcost 


SIOBE  desc  TO  Bdesc 
5T0BE  date  TO  ffldate 
SIOBE  fflanfnm  to  amanfna 
STOBE  ordna  TO  nordna 
STOBE  pjto  TO  npno 
STOBE  ordno  TO  aordno 
STOBE  qnt  TO  aqnt 
STOBE  cost  TO  Bcost 
EBASE 

a  2r  1  SAI  *DATA  OF  THE  BECOBD  * 
a  2,60  SAT  DATEO 
a  6,1  SAT  *OBOEB  B0H6EB 
SET  COLOB  TO  20,10 
a  6,20  SAT  '*■  !  (aordno) 

SET  COLOB  TO  30,14 

a  7,1  SAT  *DESCBIPTION  :•  ♦mdesc 

a  8,  1  SAT  'DATE  ;*  ^-adate 

a  9,1  SAT  'SOPPLIEfiS  NAME  :•  ^-aaanfna 

a  10,1  SAT  'ORDEB  NAME  :»  ♦aordna 

a  11,1  SAT  'PABT  HOMBEfi  :*  +mpno 

a  12,1  SAT  'QaANTITT  ♦STB  (aqnt,  5) 

a  13,1  SAT  'COST  :•  +316  (acost,8) 

a  18,20  SAT  'PLEASE  BE  PATIENT _ • 

DELETE 

PACK 

ENDDO  BHILE 


**♦♦♦♦♦♦**♦♦♦♦♦♦  Oeasaqa*prq  ♦♦♦♦♦*♦♦*♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 

♦  ADTHOB  :  KCNDTLOPOOLOS  HABALABOS 

♦  DATE  :  10-23-85 


♦  POBPOSE  :  THIS  PBOGBAH  DELETES  INVOICES  FROM  THE  STSTEM 

SET  COLOB  TO  30,22 
SET  TALK  OFF 
SET  ESCAPE  OFF 
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DO  9HILE  t 

SELECI  PBIHABY 

OSE  usage  INDEX  usage 

ERASE 

STORE  *  '  T3  minvno 

a  2,1  SAY  'DELETING  PROM  OSAGE  FILE  * 
a  2,60  SAY  DATEO 

a  4,20  SAY  '  ENTER  INVOICE  NOMBER  '  GET  minvno 
a  23,1  SAY  *  ENTER  A  BLANK  TO  EXIT  TO  DELMENU 
READ 

IF  $  (minvno,  1 , 1)  =  *  • 

RETORN 

END  IF 

FIND  Sminvno 
IF  #  =  0 
ERASE 

SET  COLOR  TO  1  12,  140 

a  22,1  SAY  *  THAT  PART  IS  NOT  ON  THE  FILE  ! 
a  22,3  SAY  •  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,14 
a  23,1  SAY  CHR  (7) 

SET  TALK  OFF 
STORE  1  TO  Z 
DO  WHILE  z<30 

STORE  z+1  TO  z 
ENDDO  WHILE 
LOOP 

ENDIF  #  =  0 

STORE  '  *  TO  mdesc 

STORE  •  *  TO  mdate 

STORE  '  '  TO  muname 

STORE  '  *  TO  muaddr 

STORE  '  '  TO  mpno 

STORE  0  TO  mqnt 
STORE  0.00  TO  mcost 


STORE  desc  TO  mdesc 
STORE  date  TO  adate 
STORE  uname  TO  ouname 
STORE  invno  TO  minvao 
STORE  pno  TO  mpno 
STORE  uaddr  TO  muaddr 


STORE  qat  TO  mqnt 
STORE  cost  TO  mcost 


ERASE 

a  2,1  SAY  'DATA  OF  THE  RECORD  • 
3  2,60  SAY  DATEO 
a  6,1  SAY  ‘INVOICE  NOMBER 
SET  COLOR  TO  20,10 
a  6,20  SAY  +  1  (fflinvno) 

SET  CCLOR  TO  30,14 

a  7,1  SAY  ‘DESCRIPTION  :‘ 

a  8, 1  SAY  ‘DATE  :  ‘ 

a  9,1  SAY  ‘USER  NAME 

a  10,1  SAY  ‘USER  ADDRESS  :» 

a  11,1  SAY  ‘PART  NOMBER  :‘ 

a  1 2, 1  SAY  ‘QNT  ;  ‘ 

a  13,1  SAY  ‘COST  :  ‘ 

a  18,20  SAY  'PLEASE  BE  PATIENT. 

DELETE 

PACK 

END  DO  WHILE 


t 


-t-mdesc 

♦mdate 

-t-mauame 

♦  muaddr 
♦mpno 

♦  STR  (mqnt,  5) 
♦STR  (mcost  ,8) 


*:t‘***************  Dearstr.pcg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦ 


*  AOTHOfi 

*  DATE 

*  PURPOSE 

* 


KONDYLOPOULOS  HARALABOS 
10-25-85 

THIS  PROGRAM  DELETES  A  RPI.  ANE_S  TO  RES  FROM 
THE  SYSTEM 


41414^41 4141:4c  *41  4i 4c 41 4c  4c 41 4c  4c 4c  4c 4c  4c 41 41 4t 41 4c  4c  4i 4c 4i 


SET  COLOR  TO  30,22 
SET  ESCAPE  OFF 
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SET  TALK  OFF 
EBASE 

DO  WHILE  t 

ERASE 

STORE  •  '  TO  fflarstma 

a  2,1  SAY  •DELETING  FROM  AIRPLANE_STORES  FILE  • 
a  2,60  SAY  DATEO 

a  4,20  SAY  •  ENTER  AIRPLSTORE_NAME  •  GET  marstrna 
a  23,1  SAY  •  ENTER  A  BLANK  TO  EXIT  TO  DELMENO  • 
READ 

If  $ (marstrna, 1, 1 )  =  •  • 

RETORN 

ENDIF 

SELECT  PRIMARY 
OSE  arstores  INDEX  arstores 
FIND  ^marstrna 
IF  #  =  0 

SET  COLOR  TO  112,140 

a  22,1  SAY  •  THAT  PART  IS  NOT  ON  THE  FILE  Ml  • 
a  22,3  SAY  '  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,14 
a  23,1  SAY  CHR  (7) 

SET  TALK  OFF 
STORE  1  TO  z 
DO  WHILE  z<3a 

STORE  z+1  10  z 
ENDDO  WHILE 
LCCP 

ENDIF  #  =  0 
ERASE 

DO  WHILE  .NOT.  EOF 
IF  arstrna  =  marstrna 

a  3,1  SAY  'DELETION  OF  ' 

SET  COLOR  TO  20,10 
a  3,14  SAY  ♦  ! (marstrna) 


SET  COLOR  TO  30,14 
a  4,1  SAI  •♦♦♦♦♦♦♦♦♦♦♦♦• 

STORE  *  *  TO  mdesc 

STORE  '  *  TO  naslfno 

STORE  *  •  TO  marstrna 

STORE  *  *  TO  apno 

STORE  0  TO  ogoh 

STORE  0.00  TO  mcost 

ERASE 

STORE  desc  TO  odesc 
STORE  arplt  TO  marplt 
STORE  aslfno  TO  Baslfno 
STORE  arstraa  TO  marstrna 
STORE  pno  TO  apno 

STORE  goh  TO  mgoh 

STORE  cost  TO  mcost 
ERASE 

a  2,1  SAY  'DATA  OF  THE  RECORD  • 

3  3,1  SAY  'DELETION  OF  ' 

SET  COLOR  TO  20,10 
a  3,14  SAY  ♦  i  (marstrna) 

SET  COLOR  TO  30,14 
a  2,60  SAY  DATEO 
a  4,1  SAY  •♦♦♦♦♦♦♦♦♦♦♦♦« 

a  6,1  SAY  'ARPL_STCRE_NAME  :•  ♦marstrna 

a  7,1  SAY  'DESCRIPTION  ;•  ♦mdesc 

a  8,1  SAY  'AIRPLANE  TYPE  ;'  ♦marplt 

a  9,1  SAY  'SHELF  NOMBER  :'  ♦maslfno 

a  10,1  SAY  'PART  NOMBER  ;•  ♦mpno 

a  11,1  SAY  'QOH  ;'  ♦STR(mqoh,5) 

a  12,1  SAY  'COST  ;'  ♦STR  ( mcost  ,  8) 

a  18,20  SAY  'PLEASE  BE  PATIENT....' 

DELETE 


ENOIF 

SKIP 


END  DO  HHILE 
PACK 

ENDOO  WHILE  t 


DeWStC.  prg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦  AOTHOB 

♦  DATE 

♦  PURPOSE 

♦ 


:  K0ND7L0P0UL0S  HARALABOS 
:  10-28-85 

:  THIS  PROGRAM  DELETES  WEAPON  STORES  FROM 
:  THE  SYSTEM 


SET  COLOR  TO  30,22 
SET  ESCAPE  OFF 
SET  TALK  OFF 
ERASE 

DO  WHILE  t 

ERASE 

STORE  '  *  TO  Dvstrna 

a  2,1  SAY  'DELEriMG  FROM  WEAPON_STORES  FILE  • 
a  2,60  SAY  DATEO 

a  4,20  SAY  '  ENTER  W EAPON_S TOR E_ NAME  '  GET  nwstrna 
a  23,1  SAY  *  ENTER  A  BLANK  TO  EXIT  TO  DELMENU  • 
READ 

IF  $ (mwstrna, 1)  =  *  * 

RETURN 

ENDIF 

SELECT  PRIMARY 
USE  ustoces  INDEX  trstores 
FIND  Gmwstrna 
IF  #  =  0 

SET  COLOR  TO  112,140 

a  22,1  SAY  '  THAT  PART  IS  NOT  ON  THE  FILE  !!!  • 
a  22,3  SAY  '  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,1 4 
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a  23,1  SAY  CHfi(7) 

S£I  TALK  OFF 
STOBE  1  TO  z 
DO  WHILE  Z<30 

STORE  Z+1  TO  Z 
ENDDO  WHILE 
LOOP 

ENDIF  i  =  0 

ERASE 

DO  WHILE  .NOT.  EOF 
IF  wstrna  =  DHStrna 

a  3,1  SAY  'DELETION  OF  • 

SET  COLOR  TO  20,10 
a  3,14  SAY  *  !  (m wstrna) 

SET  COLOR  TO  30,14 

a  4,1  SAY  ««*«*» ««*«««♦ t 

STORE  »  •  TO  mdesc 

STORE  *  •  TO  Bslfno 

STORE  '  'TO  mwstrna 

STOBE  '  *  TO  mpno 

STORE  0  TO  nqoh 

STOBE  0.00  TO  fficost 

ERASE 

STORE  desc  TO  Bdesc 
STORE  arplt  TO  uacplt 
STORE  wslfno  TO  Bwslfno 
STORE  wstrna  TO  mwstrna 
STORE  pno  TO  opno 
STORE  qoh  TO  Bqot 
STORE  cost  TO  BCOSt 
ERASE 

a  2,1  SAY  'DATA  OF  THE  RECORD  ' 
a  3,1  SAY  'DELETION  OF  ' 

SET  COLOR  TO  20,  10 
a  3,14  SAY  «•  !  (mwstrna) 


SET  COLOB  TO  30,  14 
3  2,60  SAY  DATEO 
a  4,1  SAY  «♦♦♦♦♦♦♦♦♦♦♦♦• 

3  6,1  SAY  •AEPL_STCaE_NAf!E  ;*  ♦mwstrna 

a  7,1  SAY  'DESCRIPTION  :*  ♦mdesc 

a  8,1  SAY  'AIRPLANE  TYPE  :'  ♦marplt 

a  9,1  SAY  'SHELF  NOHBER  :'  4-iDHSlfno 

a  10,1  SAY  'PART  NOHBER  :'  4-apno 

a  11,1  SAY  'QOH  ;'  +STR  (mqoh, 5) 

a  12,1  SAY  'COST  :'  +STR(incost  ,8) 

a  18,20  SAY  'PLEASE  BE  PATIENT....' 

DELETE 

SKIP 

LCOP 

ENDIF 

SKIP 

ENDDO  WHILE 
PACK 

ENDDO  WHILE  t 

DejstC.prg 

♦  AOTHOB  :  KONDYLOPOULOS  HABALABOS 

♦  DATE  :  10-29-85 

♦  PURPOSE  :  THIS  PROGRAM  DELETES  JONK  STORES  PROM 

♦  :  THE  SYSTEM 

*4>4i4<*4t4>  ***  «4i  «4i4[4[4i4i4t4>4i*4(4i4i4i:^4i4(*4(4t4<4i4c4>4i4>4i4^4>4>4‘  *4i**4>**4i4i  ** 

SET  COLOR  TO  30,22 

SET  ESCAPE  OFF 

SET  TALK  OFF 

ERASE 

DO  WHILE  t 

ERASE 

STORE  '  '  TO  ffljuaa 

a  2,1  SAY  'DELETING  FROM  JONK_STORES  FILE  • 
a  2,60  SAY  DATEO 
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a  4,20  SAY  •  EHIEB  JOMK.STOBE. MANE  •  SET  njuna 
a  23,1  SAY  •  EHIEB  A  BLANK  TO  EXIT  TO  OELHENO  * 
BEAD 

IF  $  (ijuna,!,!)  =  •  • 

BETOBN 

END  IF 

SELECT  PBIHABY 

OSE  junstores  INDEX  junstoces 
FIND  Sajuna 
IF  #  =  0 

SET  COLOB  TO  112,140 

a  22,1  SAY  *  THAT  PABT  IS  NOT  ON  THE  FILE  !!!  • 
a  22,3  SAY  'PLEASE  TBY  AGAIN  * 

SET  COLOB  TO  30,14 
a  23,1  SAY  CHB  (7) 

SET  TALK  OFF 
STOBE  1  TO  Z 
DO  WHILE  Z<30 

STOBE  2+1  TO  2 
ENDDO  WHILE 
LOOP 

ENDIF  «  =  0 
EBASE 


DO  WHILE  .NOT.  EOF 
IF  juna  =  mjuna 

a  3,1  SAY  'DELETION  OF  ' 

SET  COLOB  TO  20,10 
a  3, 14  SAY  *  I  (a  juna) 

SET  COLOE  TO  30,14 
a  4,  1  SAY  ************** 

STOBE  '  '  TO  mdesc 

STORE  '  '  TO  ajslfno 

STORE  «  '  TO  Djuna 

STORE  '  *  TO  apno 

STORE  0  TO  oqoh 
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STORE  0.00  TO  BCOSt 
ERASE 

STORE  desc  TO  ad esc 
STORE  jslfno  TO  ajslfno 
STORE  juna  TO  ajana 
STORE  pno  TO  apno 
STORE  qoh  T3  agoh 
STORE  cost  TO  acost 
ERASE 

a  2,1  SAY  *DATA  OF  THE  RECORD  • 
a  3,1  SAY  'DELETIOH  OF  • 

SET  COLOR  TO  20,10 
a  3, 14  SAY  *  1 (a juna) 

SET  COLOR  TO  30,14 
a  2,60  SAY  DATEO 
a  4,1  SAY  •♦♦*♦♦♦♦♦♦♦♦♦• 


a 

6,  1 

SAY  «AEPL_STOHE_NAME 

•  t 

• 

f m juna 

a 

7,  1 

SAY  'DESCRIPTION 

•  t 

• 

♦mdesc 

a 

8,1 

SAY  'SHELF  NOHBER 

•  t 

• 

♦a  jslfno 

a 

9,  1 

SAY  'PART  NOHBER 

•  f 

• 

«-Bpno 

a 

10,1 

SAY  'aOH 

•  • 

• 

4-5Ifi  (agoh, 5) 

a 

11,1 

SAY  'COST 

•  f 

• 

-•■STR  (acost ,  8) 

a  18,20  SAY  *  PLEASE  BE  PATIENT....' 
DELETE 
SKIP 
LCOP 
END  IF 
SKIP 

ENDDO  NHILE 
PACK 

ENDDO  WHILE  t 

4i4i4i4i*4i4i4i4i4<4i4>«4i4i4i  DeaCStC.pCq  *  **  ****4t4i*  4t  4>4t4t4>* 

*  AUTHOR  :  KONDYLOPOOLOS  HARALABOS 

♦  DATE  :  10-25-35 


*  PURPOSE  :  THIS  PROGRAM  DELETES  ACESSOfilES  STORES  FROM 

♦  :  THE  SYSTEM 

SET  COLOR  TO  30,22 
SET  ESCAPE  OFF 
SET  TALK  OFF 
ERASE 

DO  WHILE  t 

ERASE 

STORE  *  *  TO  aacstma 

a  2,1  SAY  •DELEIIHG  FROM  ACCESS_STOEES  FILE  • 
a  2,60  SAY  DATEO 

a  4,20  SAY  »  ENTER  ACCES_STORE_NAME  •  GET  macstrna 
a  23,1  SAY  *  ENTER  A  ELANK  TO  EXIT  TO  DELMENO  • 
READ 

IF  $  (oacstrna,  1)  =  •  • 

RETURN 

END  IF 

SELECT  PRIMARY 
USE  acstoces  INDEX  acstores 
FIND  Gnacstrna 
IF  ♦  =  0 

SET  COLOR  TO  112,140 

a  22,1  SAY  *  THAT  PART  IS  NOT  ON  THE  FILE  !!!  • 
a  22,3  SAY  •  PLEASE  TRY  AGAIN  • 

SET  COLOR  TO  30,1  4 
a  23,1  SAY  CHR  (7) 

SET  TALK  OFF 
STORE  1  TO  z 
DO  WHILE  z<30 

STORE  Z*1  TO  z 
ENCDO  WHILE 
LOCP 


ENDIF  *  =  0 
ERASE 


DO  HHILE  .NOT.  EOF 
IF  acstma  =  nacstrna 

a  3,1  SAY  ‘DELETION  OF  • 

SET  COLOR  TO  20,10 
a  3,14  SAY  *  1  (aacstrna) 

SET  COLOR  TO  30,14 
a  4, 1  SAY  *♦♦♦♦♦♦♦♦♦♦♦♦• 

STORE  »  •  TO  mdesc 

STORE  •  *  TO  macslfno 

STORE  •  ‘  TO  macstrna 

STORE  •  *  TO  apno 

STORE  0  TO  oqoh 

STORE  0.00  TO  mcost 

ERASE 

STORE  desc  TO  adesc 
STORE  arplt  TO  oarplt 
STORE  acslfno  TO  fflacslfno 
STORE  acstrna  TO  macstrna 
STORE  pno  TO  apno 
STORE  qoh  TO  mqoh 
STORE  cost  TO  mcost 
ERASE 

a  2,1  SAY  ‘DATA  OF  THE  RECORD  ' 
a  3,1  SAY  ‘DELETICN  OF  • 

SET  COLOR  TO  20,10 
a  3,14  SAY  *■  !  (macstrna) 

SET  COLOR  TO  30,14 
a  2,60  SAY  DATE() 
a  4,  1  SAY  •♦♦♦♦♦♦♦♦♦*♦♦• 


a 

6,1 

SAY  'ARPL_STCRE_NA11E 

•  f 

• 

-•■aacstrna 

a 

7,1 

SAY  ‘DESCRIPTION 

•  • 

• 

■fmdesc 

a 

8,1 

SAY  'AIRPLANE  TYPE 

•  1 
• 

•■marplt 

a 

9,1 

SAY  ‘SHELF  NUMBER 

•  f 

• 

•f  macslfno 

a 

10,1 

SAY  ‘PART  NUMBER 

•  f 
« 

4-mpno 

a 

mi 

SAY  ‘UOH 

•  f 

• 

-•■STR  (mgoh 

a  12,1  SAT  *COST  ^SIB  (acost  ,8) 

a  18,20  SAX  'PLEASE  BE  PATIENT....' 

DELETE 

SKI? 

LCOP 

ENDIF 

SKIP 

ENDOO  NHILE 
PACK 

ENDDO  WHILE  t 

4i4i4i*4i«4i4i4i4i«4i4i«4i]|c4t4t4E  HodlOieiltt  .  4i*4i4c4i4>4t  4i 

♦  AOTHOB  :  KCNDTLOPOOLOS  HABALABOS 

♦  DATE  :  10-20-85 

«  POfiPOSE  :  THIS  PBOGBAH  ALLOHS  THE  OS  EB  TO  SELECT  A 

♦  :  CHOICE  FOE  THE  APPBOPBIATE  FILE  MODIFICATION 

4i4>4<4> 4<4> ♦4>4t*4i4‘ *4(4141 4i 4>****«4t*  4c 

SELECT  PBIHABY 
SET  COLCB  TO  20,5 
SET  TALK  OFF 
SET  FOE  MAT  TO  SCBEEN 
SET  CONSOLE  ON 
DO  WHILE  t 

CLEAB 

EBASE 

a  1,15  SAX  "♦♦♦♦♦♦  fAlEPLANE*  PARTS  SYSTEM  •  4(4.4. ♦4t*ti 
a  3,1  SAX  'NOOIMBNO* 
a  3,60  SAX  DATEO 
3  7,1  SAY  »  OPTIONS;  » 

a  9,1  SAY  «  0  EXIT  TO  OPEBATING  SYSTEM* 

a  11,1  SAY  •  1  MODIFICATION  OF  PABTS* 

a  13,1  SAX  •  2  MODIFICATION  OF  AIRPL^STORES * 

a  15,1  SAX  •  3  MODIFICATION  OF  WEAPON_STORE S * 

a  17,1  SAX  »  4  MODIFICATION  OP  SOPPLIERS* 

a  9,45  SAY  *  5  MODIFICATTION  OP  JUNK  STORES' 
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a  11,45  SAI  •  6  MODIFICATIOM  OF  iCCES_STOEES • 

a  13,45  SAY  *  7  HOOIFICATIOM  OF  OBDEBS  • 

a  15,45  SAY  '  8  MODIFICATION  OF  INVOICE  • 

a  17,45  SAY  «  9  EXIT  TO  MAIN  MEND* 

a  19,26  SAY  •  X  EXIT  TO  DATABASE  * 
a  20,1  SAY  '  SELECT  CHOICE  • 

STOBE  '  '  TO  choice 
BAIT  TO  choice 
DO  CASE 

CASE  choice  =  *3  • 


CLEAN 

QUIT 

CASE  choice  = 

DO  mopart 
USE 

CASE  choice  =  *2* 
DO  Boarstr 
USE 

CASE  choice  =  *3' 
DO  mowpstr 
USE 

CASE  choice  =  *4* 
DO  Dosuplr 
USE 

CASE  choice  =  *5* 
DO  Bojustr 
USE 

CASE  choice  =  '6  * 
00  Boacstr 
USE 

CASE  choice  =  *7* 
DO  moocder 
USE 

CASE  choice  =  »8* 
00  mousage 
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DSE 

CASE  choice  *  *9* 

BEIOBH 

OSE 

CASE  choice  *  'X*  .OB.  choice  =  'x* 

CANCEL 

OTHEBHISE 

STOBE  1  TO  Z 
DO  WHILE  Z<5 
SET  COLOB  TO  112,140 

3  30,5  SAT  "INVALID  CHOICE...  PLEASE  TRY  AGAIN  " 
SET  COLOB  TO  30,14 
3  31,5  SAY  CHR  (7) 

STORE  Z+1  TO  Z 
EN  EDO 
ENDCASE 
ENDDO  WHILE  t 

««* «*««*««*««««  Hopart.prg  ♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦**♦♦♦♦♦*♦♦♦ 

♦  AOTHOB  :  KCNDYLOPOOLOS  HABALABOS 

♦  DATE  :  11-2-05 

♦  PURPOSE  :  THIS  PBOGRAfl  MODIFIES  PART  WITH  ADTOMATIC 

♦  :  UPDATING  OF  THE  EFFECTED  FILE 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦♦***♦♦ 
SET  ESCAPE  OFF 

SET  COLCR  TO  14,30 
SELECT  PRIMARY 
SET  TALK  OFF 
ERASE 

♦a  8,18  SAY  ’PLEASE  BE  PATIENT . ’ 

DO  WHILE  t 

USE  parts  INDEX  parts 
STOBE  '  *  TO  ipno 

ERASE 

3  1,20  SAY  •  EDITING  OF  A  FILE* 
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a  3,20  SAY  •  ENIEB  PABT.NUIIBER *  GET  mpno 
a  20,2  SAY  ’ENTEE  A  BLANK  TO  EXIT  TO  MODIMENO' 
a  3,50  SAY  OATEO 
READ 

IF  $(apilO,  1  ,1)=*  * 

RETORN 

ENDIF  $(Bpno,1,1)=  •  • 

FIND  Sapno 
IF  #=0 
ERASE 

a  13,17  SAY  •  THIS  RECORD  IS  NOT  IN  THE  FILE* 
STORE  *  '  TO  mansuer 
?  'Enter  a  ' 

SET  COLOR  TO  120,10 

27  M  t  Y  ' 

SET  COLOR  TO  33 , 14 
??  ' to  try  again  or  • 

SET  COLOR  TO  112,140 
??  '•  '  N 

SET  COLOR  TO  30,14 

??  'if  not  and  then  hit  return  ' 

SET  COLOR  TO  10,20 
ACCEPT  TO  manswer 

SET  COLOR  TO  30,14 

IF  manswer  =  'N*  -OB.  manswer  =  'n' 

RETURN 

ELSE 

LOOP 

ENDIF 

ENDIF 

ERASE 

a  1,20  SAY  'EDITING  OF  A  FILE' 
a  3,50  SAY  DATEO 
STORE  '  '  TO  mdesc 

STORE  '  '  TO  mar  pit 


STOBE 

f 

•  TO 

mmanfnm 

STOBE 

« 

<  TO 

marstrna 

STCBE 

t  f 

TO  mjuna 

STORE 

1 

'  TO 

mwstrna 

STORE 

1 

*  TO 

macstrna 

STOBE 

0  TO  mgoh 

STOBE 

0.00  TO 

mcost 

ERASE 

STCBE 

de  sc  TO 

mdesc 

STORE 

arplt  TO  marplt 

STORE 

manfnm 

TO  mmanfnm 

STOBE 

arstrna 

TO  marstrna 

STOBE 

wstrna 

TO  mwstrna 

STOBE 

juna  TO 

mjuna 

STORE 

acstrna 

TO  macstrna 

STCBE  qoh  TO  nqoh 
STOBE  cost  TO  mcost 
♦  Edit  the  new  values 
d>  8,1  SAI  *P&BT  NOHBBB 
a  9,1  SAY  ’DESCBIPTIOH 
a  10,1  SAY  ’ABPLT 
a  11,1  SAY  *HANFNANE 
a  12,1  SAY  *QOH 
a  13,1  SAY  ’COST 
00  CASE 

CASE  marstrna  <>  * 

SET  COLOfi  TO  112,  14  0 
a  14,1  SAY  •A8PLPA_STO 
CASE  mwstrna  <>  * 

SET  COLOB  TO  20, 10 
a  15,1  SAY  •HEAPON_STO_#*  GET  mwstrna 
CASE  macstrna  <>  '  ' 

SET  COLOa  TO  112,140 

a  16,1  SAY  •ACCES_STOB_#*  GET  macstrna 
CASE  mjuna  <>  •  • 
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:  •  ♦mpno 
*  GET  mdesc 

*  GET  marplt 

*  GET  mmanfnm 

*  GET  mgoh 

*  GET  mcost 

f 

#«  GET  marstrna 


2/2 


^'DD-fll65  592  THE  USE  OF  DBASE  11  AND  HICROCOHPUTERS(U)  NAVAL 

POSTGRADUATE  SCHOOL  HONTEREV  CA  H  P  KONDVLOPOULOS 
DEC  85 


UNCLASSIFIED 


F/G  9/2 


NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS-1963-A 


SET  COLOB  TO  20,10 

a  17,1  SlY  •JOHK_STOHE_#«  GET  Bjuna 
EHOCLSE 

SET  COLOB  TO  30,14 
BEAD 

*  Beplacaent  of  tha  values 
BE  PLACE  desc  SITH  ad  esc,  acplt  WITH  marpit 
BEPLACE  Hstrna  WITH  avstrna,  cost  WITH  acost 
BE  PLACE  juna  WITH  ajuna,  acstrna  WITH  aacstrna 
BEPLACE  qoh  WITH  aqoh,  arstrna  WITH  aarstrna 
CASE  arstrna  <>  '  ' 

SELECT  SECOMOABI 

USE  arstores  INDEX  arstores 

FIND  Sapno 

ST  QBE  '  •  TO  aaslfno 

ST QBE  as If no  TO  aaslfno 
EBASE 

a  6,1  SAY  '  ABPL_STOHE_NAHE  :•  ♦  aarstrna 

a  7,1  SAY  «PABT_Hai!BEH  :•  ♦  apno 

a  8,1  SAY  *D£SCBIPT10N  *  adesc 

a  9,1  SAY  'ABPL^TYPE  :*  ♦  aarplt 

a  10,1  SAY  'QOANT  3N  HAND  :•  ♦  STB(aqoh,5} 
a  11,1  SAY  ’COST  :*  ♦  STB(BCOSt,8) 

SET  COLOB  TO  112,140 

a  12,1  SAY  ’AIKPL_SHELF_NOMB;*  GET  aaslfno 

SET  COLOE  TO  30,14 

BEAD 

BEPLACE  arstrna  WITH  aarstrna,  pno  WITH  apno 

BEPLACE  arplt  WITH  aarplt,  cost  WITH  acost 

BEPLACE  qoh  WITH  agoh,  aslfno  WITH  aaslfno 

BEPLACE  desc  WITH  adesc 

CLEAB 

LOOP 

CASE  wstrna  <>  *  • 


SELECT  SECONDABY 


OSE  ws tores  IHOEX  vstores 
FI  HD  Sspito 

SICBE  *  •  TO  Bwslfno 

STORE  wslfno  TO  Mvslfno 
ERASE 


3 

6,1 

SAY  'HEAPOH_STO_NAME 

•  f 

• 

*  B vstrna 

3 

7,1 

SAY  'PART  NUMBER 

•  f 

• 

+  Bpno 

3 

8,1 

SAY  'DESCRIPTION 

•  • 

• 

*  Bdesc 

3 

9,1 

SAY  'ARPLN_TYPE 

•  t 

• 

*  B  arplt 

3 

10,1 

SAY  'QUANTITY  ON  HAND:' 

*  STR(Bgoh,5) 

3 

11,1 

SAY  'COST 

•  • 
• 

*  STB (BCOSt, 8) 

SET  COLOR  TO  112,140 

3 

12,1 

SAY  'HEAPON_SHELP_# 

•  ff 

• 

GET  Bvslfno 

SET  COLOR  TO  30,14 
READ 

REPLACE  vstrna  WITH  ovstrna,  pno  HITH  apno 
REPLACE  arplt  HITH  oarplt,  vslfno  HITH  mvslfno 
REPLACE  cost  HITH  BCOSt,  COSt  HITH  BCOSt 
REPLACEdesc  HITH  mdesc 
CL  EAR 
LO  CP 

CASE  juna  O  *  * 

SELECT  SECONDARY 

USE  junstores  INDEX  janstores 

FIND  Gapno 

STORE  •  *  TO  Bjslfno 

STORE  jslfno  TO  Bjslfno 
ERASE 

3  6,1  SAY  'JUNSTORES 
3  7,1  SAY  'PART  NUMBER 
3  8,1  SAY  'DESCRIPTION 
3  9,1  SAY  'gUAN  ON  HAND 
3  10,1  SAY  'COST 
SET  COLOR  TO  112,140 

3  11,1  SAY  'JOANK  SHELF  NUM:  '  GET  Bjslfno 
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*  m^una 

*  mpno 


'  *  Bdesc 
'  *■  STE(Bqoh,5) 

:'  *  SIR  (BCOSt, 8) 


SET  COLOfi  TO  30,14 
BEAD 

REPLACE  juna  HITR  ajona,  pno  BITH  apno 
REPLACE  jslfno  RITH  ajslfno,  goh  RITH  agoh 
REPLACE  desc  HlIH  adesc,  cost  RITH  acost 
CLEAR 
LOOP 

CASE  aacstrna  <>  *  * 

SELECT  SECOHDAE7 

USE  acstores  INDEX  acstoces 

FIND  Sapno 

STORE  *  *  TO  aacslfno 

STORE  acslfno  TO  aacslfno 
ERASE 

a  6,1  SAX  *  ACCESS  STORES  aacstrna 

a  7,1  SAl  «PART  NUMBER  *  apno 

a  8,1  SAI  *DESCRIPIION  *  adesc 

a  9,1  SAI  »ARPL  TYPE  :•  ♦  aarplt 

a  10,1  SAY  *Q0ANT  ON  HAND  :*  *■  SIR(agoh,5) 

a  11,1  SAY  *COST  *  SIR  (acost,  8) 

SET  COLOR  TO  112,  14  0 

a  12,1  SAY  ’ACCESS  SHELF  i  SET  aacslfno 

SET  COLOR  TO  30,14 

READ 

REPLACE  acstrna  RITH  aacstrna,  pno  RITH  apno 

REPLACE  acslfno  RITH  aacslfno,  arplt  HITH  aarplt 

REPLACE  cost  RITH  acost 

REPLACE  desc  RITH  adesc,  gob  HITH  agob 

CLEAR 

LO  CP 

OTHERRISE 

a  18,10  SAY  ’  THIS  PART  IS  NOI  IN  THE  INVENTORY  !!1 
CLEAR 
LOOP 
ENDCASE 


EaODO  iHlLB  t 


Hosaplr.prg  ************** ****ti***** 

*  AOTHOB  :  KOHOXLOPOOLOS  HABALABOS 

*  DATE  ;  11-2-85 

*  POBPOSE  :  THIS  PB06BAH  HODIFIES  THE  SOPPLIEB*S  DATA 

:^i^t******m************  ****************  ***************** 

SET  COLCB  TO  14,30 
SET  ESCAPE  OFF 
SELECT  PfilHABX 
SET  TALK  OFF 
EBASE 

DO  WHILE  t 

OSE  suppliers  INDEX  suppliers 
STOBE  *  *  TO  ■aanfui 

EBASE 

a  1,20  SAY  *  EDITING  OF  A  FILE* 
a  3,20  SAY  •  ENTEfi  SOPPLIEB  NAHE  •GET  anaufum 
a  20,2  SAY  'ENTEB  A  BLANK  TO  EXIT  TO  HODIHENO* 
a  3,60  SAY  DATEO 
BEAD 

STOBE  !  (■■anfna)  T3  BBaufuB 
IF  $(aBaufnB,  1 ,1)  s*  • 

BETOBN 

ENDIF  $  (BBanfoB, 1,1)  =  •  • 

FIND  BaBanfuB 
IF  #*0 
EBASE 

a  13,17  SAY  •  THIS  BECOBD  IS  NOT  IN  THE  FILE* 
STOBE  •  '  TO  Bauswer 
?  • Enter  a  ' 

SET  COLOB  TO  120,10 

•9J  II  •  y  I II 

SET  COLOR  TO  30,14 
??  ‘to  try  again  or  • 
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'  V 

SET  COLOR  TO  112,140 

??  '•  •  H  »'• 

SET  COLOR  TO  30,14 

4' 

??  *if  not  and  then  hit  return  * 

SET  COLOR  TO  10,20 

ACCEPT  TO  nanswer 

A 

SET  COLOR  TO  30,14 

IF  aansver  -  «m*  .OR.  aansver  =  'n* 

RETURN 

ELSE 

LOOP 

ENDIF 

1^ 

ENDIf 

,'  f 

^1*1 

ERASE 

i. 

a  1,20  SAY  •EDITING  OF  A  FILE* 

i 

a  3,50  SAI  OATEO 

STORE  *  *  TO  ananfadr 

1 

STORE  •  •  TO  aziptco 

STORE  '  •  TO  Bcountry 

-‘•Ij 

I'J 

STORE  •  *  TO  Bar  pit 

• 

STORE  *  *  TO  adelztiae 

»? 

STORE  *  '  TO  aproduct 

ERASE 

% 

STORE  aanfna  TO  aaanfna 

STORE  aanfadr  TO  aaanfadr 

ft 

STORE  zip:co  TO  azip:co 

s 

jT 

STORE  country  TO  acountry 

STORE  arplt  TO  aarplt 

Iff 

l\ 

ft* 

STORE  del:tiae  TO  adel:  tiae 

STORE  product  TO  aproduct 

*  Edit  the  new  values 

1 

a  8,1  SAY  'SUPPLIER  NANS:* 

* 

i 

SET  COLOR  TO  20,10 

a  8,17  SAY  !(+  aaemina) 

- 

SET  COLOR  TO  30,14 
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;y 

Ji 

V 

.,v 

T“ 

4lh-> 

'•:; 

•’» 

! 

w 

\ 

a  9,1  SAX  *SOPPLISE  ADDRESS*  SET  Manfadc 
a  10,1  SAX  'ZlPcCODE 

a  11,1  SAX  'COOETRX 

a  12,1  SAX  'ARPLAME  TXPE 

a  13,1  SAX  'DELITEBX  TIHE 

a  14,1  SAX  •PRODOCr 

READ 


'  GET  azipcco 

*  GET  Bcountry 

*  GET  aarplt 


GET  adelztiae 
GET  aprodact 


«  Beplacaent  of  tha  valaes 

REPLACE  aanfuB  RITH  BBaafna,  aanfadr  RITH  aaanfadc 
REPLACE  zlp:co  HITS  azip:co,  arpit  HITH  aarplt 
REPLACE  product  HITH  aproduct,  couatry  HITH  acoontry 
REPLACE  del:tiBe  HITH  adel:tiBe 


END  DO  WHILE  t 


Rousage.prg  *«**********♦«***«*«***** 

*  AUTHOR  :  KCNDXLOPOOLOS  HARALABOS 

*  DATE  :  11-3-85 

*  PURPOSE  :  IBIS  PROGRAH  HODIIIES  I  HE  INVOICE  DATA 
Jti*inni$t**i^*nt**************  *************  ***************** 
SET  COLOR  TO  14,30 

SET  ESCAPE  OFX 
SELECT  PRIHABX 
SET  TALK  OFF 
ERASE 

DO  WHILE  t 

USE  usage  INDEX  usage 
STORE  *  *  TO  bIdtuo 

£R  ASE 

a  1,20  SAY  *  EDITING  OF  A  FILE* 
a  3,20  SAY  •  ENTER  INVOICE.NUNBER  *  GET  ainvno 
a  20,2  SAY  'ENTER  A  BLANK  TO  EXIT  TO  HOOINENU* 
a  3,50  SAY  DATEO 
BEAD 


IF  $  (ainvno, 1, 1)  =*  ' 
RETURN 
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EH  OIF  $  (ainTiio,  1,1)=  •  • 

FI  HD  Sainvno 
IF  #=0 
ERASE 

a  13,17  SAI  *  THIS  RECORD  IS  HOT  IH  THE  FILE' 
STORE  *  *  TO  aanswer 
?  'Enter  a  ' 

SET  COLOR  TO  120,10 

77  H  f  2  I II 

SET  COLOR  TO  33,14 
??  'to  try  again  or  • 

SET  COLOR  TO  112,140 
77  II  t  H  in 

SET  COLOR  TO  30,  14 

??  'if  not  and  then  hit  return  ' 

SET  COLOR  TO  10,20 
ACCEPT  TO  nansver 

SET  COLOR  TO  30,14 

IF  nansver  =  *H*  .OR.  nansver  =  *n' 

RETURN 

ELSE 

LOOP 

ENOIF 

ENOIF 
Efi  ASE 


a  1,20  SAI  'EDITING  OF  A  FILE' 

a  3,50  SAI  OATEO 

STORE  '  '  TO  Ddesc 

STORE  '  '  TO  apno 

STORE  '  'TO  Buname 

STORE  '  •  TO  a  date 

STORE  '  '  TO  muaddr 

STORE  0  TO  oqnt 

STORE  0.00  TO  mcost 

ERASE 
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m 

STOBE  iavno  TO  ainvao 
ST QBE  desc  TO  adesc 
STCBE  pno  TO  Mpno 
STOBE  date  TO  adate 
STOBE  a  name  TO  aunaae 
STOBE  aaddr  TO  auaddr 
STOBE  qnt  TO  aqnt 
STOBE  cost  TO  acost 

*  Edit  the  nev  values 

9  8,1  SAX  <IH?OICE  HOHSEB  :* 

SET  COICB  TO  20,10 
a  8,17  SAX  !(-*■  ainvno) 

SET  COLOB  TO  30,14 
a  9,1  SAX  *DESCBIPTIOB  *  GET  adesc 
a  10,1  SAX  <DATE  *  GET  adate 

a  11,1  SAX  *0SEB  B&BE  *  GET  aunaae 

a  12,1  SAX  'OSEB  ADOBESS*  GET  auaddr 

a  13,1  SAX  'PABT  BOEBEB  *  GET  apnc 

a  14,1  SAX  «QHT  «  GET  aqnt 

a  15,1  SAX  'COST  •  GET  acost 

BEAD 

*  Beplacaent  of  tha  values 

BEPLACE  desc  WITH  adesc ,  date  MITE  adate 
BEPLACE  pno  WITH  apno,  invno  WITH  ainvno 
BEPLACE  qnt  WITH  aqnt,  uaddr  WITH  auaddr 
REPLACEunaae  WITH  aunaae,  cost  WITH  acost 
END  DO  WHILE  t 

Hoorder.prg  ******^******* ********** 

*  AUTHOB  :  KONDXLOPOULOS  HABALABOS 

*  DATE  ;  11-3-85 

*  PURPOSE  :  THIS  PBOGBAH  MODIFIES  THE  ORDERS  OF  THE 

*  :  PARTS  ON  THE  ORDEB  FILE 

^rnrn********* **************************  *******  ************* 

SET  COLCB  TO  14,30 
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SET  ESCAPE  OFF 


SELECT  PfilHAEF 


SET  TALK  OFF 


EBASE 


*  Create  a  coctinue  loop 


DO  WHILE  t 


OSE  orders  INDEX  orders 


ST  QBE 


*  TO  Bordno 


EBASE 


3  1,20  SAX  *  EDITING  OF  A  FILE* 

9  3,20  SAX  *  ENTEB  OBDEfi  NOMBEB*  GET  Bordno 
a  20,2  SAX  *ENT£B  A  BLANK  TO  EXIT  TO  MODINENO* 
a  3,50  SAX  DATEO 


BEAD 


IP  $(Bordno,1,1)  =  *  • 


BETOBN 


ENDIF  $  (Bordno,1,1)  = 


FIND  Saordno 


IF  #»0 


EBASE 


a  13,17  SAX  *  THIS  BECOBD  IS  NOT  IN  THE  FILE* 


STOBE 


TO  aansver 


?  *  Enter  a  * 


SET  COLOB  TO  120,10 


•to  M  t  Y  * " 


SET  COLOB  TO  33 , 14 
??  *to  try  again  or  • 
SET  CCLCB  TO  112, 140 


•?•?  It  (  H  t  M 


SET  COLOB  TO  30,  14 


??  'if  not  and  then  hit  retarn  * 


SET  COLOB  TO  10,20 


ACCEPT  TO  manswer 


SET  CCLCB  TO  30,14 


IF  B answer  »  'N*  .OB.  aanswer  » 


BETUfiN 

ELSE 

LOCP 

BMDIF 

END  IF 
ERASE 

a  1,20  SAI  *£D1IIN6  OF  A  FILE* 
a  3,55  SAY  DATE  () 

STORE  *  •  TO  mdesc 

STORE  *  *  TO  apno 

STORE  *  *  TO  aBaiifQa 

STORE  *  •  TO  Ddate 

STORE  *  *  TO  Bordna 

STORE  0  TO  Bgnt 

STORE  0.00  TO  Bcost 

ERASE 

STORE  desc  TO  Bdesc 
STORE  pQO  TO  Bpno 
STORE  aasfnB  TO  aaanfnB 
STORE  date  TO  Bdate 
STORE  ordna  TO  Bordna 
STORE  gnt  TO  Bgnt 
STORE  cost  TO  BCOSt 
a  8,1  SAY  *CBO£B  NUMBER  :* 

SET  COLOR  TO  20,10 
a  8,17  SAY  !  (■•’  aocdno) 

SET  COLOR  TO  30,  14 

a  9,1  SAY  'DESCRIPTION  *  GET  Bdesc 
a  10,1  SAY  'DATE  *  GET  adate 

a  11,1  SAY  «MANFACI_NAME  *  GET  BBanfna 
a  12,1  SAY  'ORDER  NAME  *  GET  Bordna 

a  13,1  SAY  'PART  NUMBER  *  GET  apno 

a  14,1  SAY  'QUAN_ON_HAND  *  GET  agnt 

a  15,1  SAY  'COST  *  GET  BCOSt 

READ 
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*  Beplacaent  of  the  values 
BEPLICE  desc  WITH  adesc#  date  WITH  odate 
REPLACE  pno  WITH  apno«  ordno  WITH  mordno 
REPLACE  get  WITH  egnt,  ordna  WITH  mordna 
REPLACE  aanfnn  WITH  aaanfna,  cost  WITH  mcost 
EHDOO  WHILE  t 

Beponenu.  prg 

♦  AOTHOB  :  KONOYLOPOOLOS  HABALABOS 

♦  DATE  :  10-6-85 

♦  PURPOSE  :  THIS  PBOGRAH  SELECTS  THE  REQUIRED  REPORT 

♦  :  OPERATION  OF  THE  SYSTEM  BY  USING  MENU  DRIVEN 

♦  ;  CHOICE 

SET  ESCAPE  OFF 
SELECT  PRIMARY 
SET  COLOR  TO  20,5 
SET  TALK  OFF 
SET  FORMAT  TO  SCREEN 
SET  CONSOLE  CM 
DO  WHILE  t 

CLEAR 

ERASE 

a  1,15  SAY  '•♦♦♦*  *AIBPLANE*  PARTS  SYSTEM  •♦♦♦♦♦♦•• 
a  3,1  SAY  *REPOMENU' 
a  3,60  SAY  DATEO 
a  7, 1  SAY  *  OPTIONS: « 

a  9,1  SAY  '  0  EXIT  TO  OPERATING  SYSTEM' 

a  11,1  SAY  '  1  LISTING  OF  ALL  THE  INVENTORY* 

a  13,1  SAY  «  2  LISTING  OF  ALL  THE  SUPPLIERS' 

a  15,1  SAY  '  3  LISTING  OF  ALL  THE  ORDERS' 

a  17,1  SAY  '  4  LISTING  OF  ALL  THE  INVOICES* 

a  19,1  SAY  '  5  LISTING  OF  ALL  THE  AR_STR  PARTS' 

a  9,38  SAY  '  6  LISTING  OF  ALL  THE  J0_STR  PARTS' 

a  11,38  SAY  '  7  LISTING  OF  ALL  THE  WE_STR  PARTS* 
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a  13,38  SAY  •  8  IISTINS  OF 

a  15,38  SAY  •  9  EXIT  TO  DATABASE* 

a  17,38  SAY  '  X  EXIT  TO  MA 

a  20,1  SAY  «  SELECT  CBOICE  • 


8  IISTINS  OF  ALL  THE  AC  STR  PARTS' 


X  EXIT  TO  MAIN  HENU* 


STORE 


TO  choice 


WAIT  TO  choice 


DO  CASE 


CASE  choice  =  'D* 


CLEAR 


QUIT 


CAS  E  choice  =  *  1 ' 


DO  cepact 


CASE  choice  =  '2* 


DO  cesuplc 


CASE  choice  =  '3* 


DO  reorder 


CASS  choice  =  '4* 


DO  reusage 


CASE  choice  =  '5' 


DO  rearstr 


CASE  choice  =  '5' 


DO  rejstr 


CASE  choice  =  '7* 


DO  revstr 


CASE  choice  =  '8* 


DO  reacstr 


CASE  choice  =  '9* 


CANCEL 

CASE  choice  »  *X*  .OB.  choice  =  *x* 

BEIUBN 

OSE 

OIHEBNISE 

STORE  1  TO  Z 
DO  WHILE  Z<10 

3  30,5  SAY  ••  INVALID  CHOICE...  PLEASE  THY  A3  AIN  " 
a  31,5  SAY  CHR  (7) 

STORE  Z-t-1  TO  Z 
ENCOO 
ENDCASE 
END  DO  WHILE  t 

«««««*« fiepart. prg  ♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦** 

*  AUTHOR  :  KONDYLOPOULOS  HABALABOS 

*  DATE  :  11-12-85 

♦  PURPOSE  :  THIS  PROGRAM  LISTS  THE  INVENTORY  OF  THE  ALL 

♦  :  PARTS  OF  THE  SYSTEM 

4I *«««*« ««*«*««««**  «««*««*«*««*«*  ««««***4>*4>**«**4c*»** 

SET  PRINT  OFF 
SEX  ESCAPE  OFF 
SET  COLOR  TO  30,14 
SET  TALK  OFF 

SET  ALTERNATE  TO  cepart.  txt 

SET  ALTERNATE  ON 

ERASE 

a  2,18  SAY  inventory  LISTING  «♦♦♦♦♦♦♦♦♦♦»• 

SET  COLOR  TO  20,10 
a  2,60  SAY  DATE  () 

SET  COLOR  TO  30,14 
OSS  PARTS 

a  10,18  SAY  'INDEXING . PLEASE  BE  PATIENT' 

a  16,18  SAY  'IF  YOU  WANT  TO  CANCEL.  PLEASE  HIT  <ESCAPE>  ' 
STORE  t  TO  flag 


.v 

I 

§ 


DO  WHILE  flag 
EBASE 

SIOBE  *  '  TO  aqaery 

ACCEPT  '•  PBINTED  IH7EHT0BY  ?  Y/N  "  TO  mquery 
EBASE 

IF  rnguery  =  'Y'-OB.  aquery  =  'y' 

SET  PBIHT  ON 
STOBE  1  TO  c 
DO  WHILE  c<5 

SET  COLOB  TO  20,10 
SET  PRINT  ON 

a  12,20  SAY  «S£T  PRINTER  ON  PLEASE* 
a  12,50  SAY  CHB(7) 

STORE  c+1  TO  c 
SET  COLOR  TO  30,14 
ENDOO  WHILE 


ELSE 

SET  PRINT  OFF 
ENOIF 

STORE  t  TO  xflag 
DC  WHILE  xflag 
ERASE 

SET  COLOR  TO  112,140 

a  11,15  SAY  •  IF  YOO  WANT  TO  FREEZE  THE  SCREEN* 
a  12,15  SAY  *  DURING  THE  LISTING,  HIT  CTRL  N0!!_' 
a  12,15  SAY  '  _LOCK  TO  CONTINUE,  PRESS  ANY  KEY  * 
SET  COLOR  TO  30,14 

a  1,5  SAY  •♦♦♦♦♦♦♦♦  REPORT  MENU  ♦♦♦♦♦♦♦♦• 

SET  COLOR  TO  20,10 
a  3,15  SAY  *ABPLANE  TYPE  MENU* 
a  3,60  SAY  DATE  () 

SET  COLOR  TO  30,14 
a  4,1  SAY  *  OPTIONS  * 
a  5,1  SAY  '  0  F-104* 

a  6, 1  SAY  '  1  F-1.  * 


f.f. 


8  7,1  SAY  *  2  F-102* 

a  8,1  SAY  •  3  C-130* 

a  9,1  SAY  *  4  F-4  * 

a  5,30  SAY  »  5  F-5 

a  6,30  SAY  •  6  F-16 

a  7,30  SAY  *  7  C-47 

a  8,30  SAY  »  8  F-18  ' 

a  9,30  SAY  *  9  PBIHT 

a  10,15  SAY  •  X  EXIT 
a  17,1  SAY  'OPTION:* 


F-16  • 

C-47  * 

F-18  • 

PRINT  YOOfi  CHOICE  • 
EXIT  TO  EEPOHENO  ' 


STORE 


TO  choice 


WAIT  TO  choice 
ERASE 
DO  CASE 

CASE  choice  =  *0  * 

SET  COLOR  TO  20,10 

a  14,30  SAY  •  PARTS  FOR  F-10  4  • 

SET  COLOR  TO  30,14 

LIST  FOR  arplt  =  'F-104' 

CASE  choice  =  *1' 

SET  COLOR. TO  20,10 
a  14,30  SAY  'PARTS  OF  F-1* 

SET  COLOR  TO  30,14 
LIST  FOB  arplt  =  'F-l.' 

CASE  choice  =  *2' 

SET  COLOR  TO  20,10 

a  14,30  SAY  *  PARTS  OF  F-102  * 

SET  COLOR  TO  30,14 

LIST  FOR  arplt  =  'F-102* 

CASE  choice  =  *3* 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  OF  C-130* 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  'C-130' 

CASE  choice  =  '4' 


SET  COLOB  TO  20«10 
a  14,30  SAY  •  PARTS  OF  F-4  ' 

SET  COLOB  TO  30,14 
LIST  FOB  arplt  =  »F-4* 

CASE  choice  =:  *5* 

SET  COLOB  TO  20,10 
a  14,30  SAY  •  PARTS  FOR  F-5  * 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  'F-S  • 

CASE  choice  -  *6  * 

SET  COLOR  TO  20,10 
a  14,30  SAY  •  PARTS  FOR  F-16' 

SET  COLOR  to  30,14 
LIST  FOR  arplt  =  'F-lh* 

CASE  choice  =  *7* 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  FOR  C-47  • 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *C-47  • 

CASE  choice  =  *8* 

SET  COLOR  TO  20,10 
a  14,30  SAY  *  PARTS  FOR  F-18  * 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  »F-18  * 

CASE  choice  =  *9* 

SET  PBINI  ON 
LOOP 

CASE  choice  =  *X*  -OR.  choice  =  *ic» 

SET  PRINT  OFF 
BETORN 
ENOCASE 

SET  ALTERNATE  OFF 
STORE  *  '  TO  manswer 
SET  COLOR  TO  20,10 

ACCEPT  "ENTER  A  Y  IF  YOU  WISH  ANOTHER  LISTING, 


SET  COLCB  TO  30«14 
ERASE 

IF  manswer  =  *y*  .OS.  aansvec  =  *1* 

SET  fSINT  OFF 
LOOP 
ELSE 

BEIOSM 

ENDIF 

ENDDC 

END 00  WHILE 

*«««*««««  Besuplc.pcg  ****************’*^***********>*1 

*  AOTHOB  :  KONDILOPOOLOS  BABALABOS 

♦  DATE  :  11-1-85 

*  PURPOSE  :  THIS  PROG BAH  REPORTS  THE  NAMES  OF  THE 

♦  :  SOPPLIEBS 

SET  COLOB  TO  20,10 
SET  TALK  OFF 
00  WHILE  t 
ERASE 

d  1,12  SAY  f  ♦♦♦♦♦♦  SUPPLIERS  REPORT  ♦♦♦♦♦♦♦♦♦* 

a  3,15  SAY  •  IF  YOU  WANT  TO  FREEZE  THE  SCREEN  HIT  CTRL  S  » 

a  5,15  SAY  '  IF  YOU  WANT  TO  RETURN  TO  THE  REPORT  MENU,  • 

a  5,16  SAY  »  HIT  ESC 

USE  SUPPLIERS 

SET  COLOR  TO  30,14 

STORE  *  *  TO  nquery 

ACCEPT  "DO  YOU  WANT  THE  REPORT  PRINTED  ?  Y/N  "  TO  mquery 
IF  mquery  =  *1*  .OR.  mquery  =  *y* 

SET  PRINT  ON 
STORE  1  TO  c 
DO  WHILE  c<5 

SET  COLOR  TO  20,  10 

a  12,24  SAY  'PLEASE...  SET  PRINTER  ON  * 
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a  12,50  SAY  CHB(7) 

SIOfiE  C-i’  1  TO  C 
SET  COLOB  TO  30,14 
EHOOO  UHIIE 
BEPOBT  FOBE  SOPPLl 
SET  PBIHT  OFF 
ELSE 
EBASE 

a  3,15  SAX  '  IF  ¥00  WANT  TO  FBEEZE  THE  SCBEEN,  * 

a  5,15  SAY  *  HIT  CTBLS  IF  YOU  HAMT  TO  BETOBM  TO  BEPOBT* 

a  5,16  SAY  *  MEMO,  HIT  ESC  • 

BEPOBT  FOBH  SOPPLl 
END  IF 

STOBE  •  •  TO  ugaery 
SET  COLOB  TO  20,10 

ACCEPT  •  DO  YOU  WANT  TO  BEPEAT  THE  BEPOBT  ?  Y/N  *  TO  mquery 

SET  COLOB  TO  30,14 

IF  iguery  =  •¥*  .OB.  agaery  =  ‘y* 

LOOP 
END  IF 
BE TUB N 
ENDDO  WHILE 

BeUSage.prg  4>*4>***4>4>’^<^*>I>*****4>**4>*4|***>I>4>* 

*  AOTHOB  :  KONDYLOPOOLOS  BABALABOS 

♦  DATE  :  11-1-85 

*  PUfiPOSE  :  THIS  PB06BAH  BEPOBTS  THE  USERS  OF  THE  USAGE 

♦  :  FILE 

««« ««««*«« *4> *******  *»**4>**«* 

SET  COLOB  TO  20,10 
SET  TALK  OFF 
DO  WHILE  t 
ERASE 

a  1,15  SAY  •**♦♦**♦♦*****♦  OSEBS  REPORT  **************** 
a  3,15  SAY  ♦  IF  YOU  WANT  TO  FREEZE  THE  SCREEN  HIT  CTRL  S  • 

113 


a  5,15  SAY  •  IF  YOO  WANT  TO  BETOHH  TO  THE  BEPOBT  HENO, * 
a  5,16  SAY  *  HIT  ESC 
OSE  usage 

SET  COLOB  TO  30,14 
STOBE  *  •  TO  nguery 

ACCEPT  "DO  YOO  HANT  THE  BEPOBT  PBIMTED  ?  Y/N  "  TO  mguery 
IF  mguery  =  ’Y*  -OB.  mguery  =  'y* 

SET  PBINT  ON 
STOBE  1  TO  C 
DO  WHILE  c<5 

SET  COLCfi  TO  20,10 

a  12,2  4  SAY  •PLEASE...  SET  PBINTEB  ON  • 
a  12,50  SAY  CHE(7) 

STORE  C*1  TO  c 
SET  COLOB  TO  30, 14 
ENDDC  WHILE 
BEPOBT  FOBH  usa 
SET  PBINT  CFF 
ELSE 
EBASE 

a  3,  15  SAY  •  TO  FBEEZE  THE  SCBEEN,  HIT  CTBL  S  • 

a  5,15  SAY  •  TO  BETOEN  TO  BEPOBT  HENU,  HIT  ESC  * 

7 

BEPOBT  FOBH  USa 
ENDIF 

STOBE  '  '  TO  mguery 
SET  COLCB  TO  20,  10 

ACCEPT  *00  YOO  WANT  TO  BEPEAT  THE  BEPOBT  ?  Y/N  '  TO  mguery 

SET  COLCB  TO  30,14 

IF  mguery  =  •!*  .OB.  mguery  =  ’y* 

LOOP 
ENDIF 
BETORN 
END  DO  WHILE 


*****«««««*««*««*  Beorder.pcg 

*  JLOTHOB  :  KOHDYLOPOOLOS  Hifi&XABOS 

♦  DATE  :  11-1-85 

*  PORPOSE  :  THIS  PROGBAH  REPORTS  THE  ORDERS  OF  THE  ORDER 

♦  :  FILE 

********«******«****4>*****4i4i4i**4i«***«*****«*4i4t**4i««4i4t4[««*4i* 

SET  COLCfi  TO  20,10 
SET  TALK  OFF 
DO  RHILF  t 
ERASE 

3  1,15  SAY  •♦*♦♦♦♦♦♦♦♦♦♦♦♦  OBDERS  REPORT  ♦*♦♦♦♦♦♦♦♦♦♦♦♦♦» 
a  3,15  SAY  »  10  FREEZE  THE  SCREEN  HIT  CTRL  S  » 

a  5,15  SAY  *  TO  RETURN  TO  THE  REPORT  HENU,  HIT  ESC  * 

? 

USE  ORDERS 

SET  COLOR  TO  30,14 

STORE  •  •  TO  iqaery 

ACCEPT  "DO  YOU  HAST  THE  REPORT  PRINTED  ?  Y/N  "  TO  nquery 
IF  aqaery  *  *1*  .OB.  aqaery  ®  *y* 

SET  PRINT  ON 
STORE  1  TO  C 
DO  WHILE  c<5 

SET  COLCR  TO  20,10 

a  12,2  4  SAY  'PLEASE...  SET  PRINTER  ON  ' 
a  12,50  SAY  CHR(7) 

STORE  C*1  TO  c 
SET  COLOR  TO  30,14 
ENDDC  WHILE 
REPORT  FORM  ORD 
SET  PRINT  OFF 
ELSE 
ERASE 

a  3,  15  SAY  '  TO  FREEZE  THE  SCREEN,  HIT  CTRL  S  ' 

a  5,15  SAY  '  TO  RETURN  TO  REPORT  MENU,  HIT  ESC  • 


BEPOfiT  FOBB  OBD 
EH  DIF 

SIOBE  '  '  TO  aguery 
SET  COLOB  TO  20,10 

ACCEPT  *DO  ¥00  BAHT  TO  BEPEAT  THE  BEPOBT  ?  I/H  «  TO  mguery 

SET  COLOB  TO  30,14 

IF  aquery  =  •  ¥•  -OB.  aqaery  =  ‘y* 

LOOP 
EHDIF 
BETOBN 
EHDDO  HHILE 

fiearstr.  prq 

♦  AOTHOfi  :  KOHDTLOPOULOS  HABALABOS 

♦  DATE  :  11-12-85 

«  POBPOSE  :  IHTS  PBOGBAH  LISTS  THE  IHVEHTOBI  OF  THE 

♦  :  AIBPLAHE_SIORES 

a** ««««*«*«  «««#«**«««« «#«#«« IK#*##** ♦«*«****««♦«*««* * 

SET  PBIHT  OFF 
SET  ESCAPE  OFF 
SET  COLCB  TO  30,14 
SET  TALK  OFF 

SET  ALTEBHATE  TO  rearstc.tzt 

SET  ALTERNATE  OH 

ERASE 

a  2,18  SAY  inventory  LISTING 

SET  COLOR  TO  20,10 
a  2,60  SAY  OATEO 
SET  COLOR  TO  30,14 
USE  arstoces 

a  10,18  SAY  «IN0EIING . PLEASE  BE  PATIENT’ 

a  16,18  SAY  *IF  YOD  BANT  TO  CANCEL.  PLEASE  HIT  <ESCAPE>  ’ 
STORE  t  TO  flag 
00  HHILE  flag 
ERASE 


I,??:: 

H 

M 


SIOHE  '  '  TO  aquery 

ACCEPT  "  PRINTED  INPENTOHY?  I/N  ••  TO  aquery 
ERASE 

IF  aquery  =  'Y'-OR.  aquery  =  'y' 

SET  PRINT  ON 
STORE  1  TO  C 
00  HHILE  c<5 

SET  COLOR  TO  20,10 
SET  PRINT  ON 

a  12,20  SAY  'SET  PRINTER  ON  PLEASE* 
a  12,50  SAY  CHS(7) 

STORE  C*1  TO  c 
SET  COLOR  TO  30,14 
ENDDC  HHILE 
ELSE 

SET  PRINT  OFF 
ENOIF 

STORE  t  TO  xflag 
DO  HHILE  Xflag 
ERASE 

SET  COLOR  TO  112,140 

a  11,15  SAY  •  TO  FREEZE  THE  SCREEN  DOBING  THE  * 
a  12,15  SAY  •  LISTING  HIT  CTRL  NOa_LOCK.  • 
a  12,16  SAY  »  PRESS  ANY  KEY  TO  CONTINOE  • 

SET  COLOR  TO  30,14 

a  1,5  SAY  *♦♦♦♦♦♦♦♦  REPORT  HENO  ♦♦♦♦♦♦♦♦• 

SET  COLOR  TO  20,10 
a  3,15  SAY  'ARPLANE  TYPE  MEND* 
a  3,60  SAY  DATE  () 

SET  COLOR  TO  30 , 14 
a  4,1  SAY  'OPTIONS  * 
a  5,1  SAY  •  0  F-104* 


mi 


a  6,1  SAY  • 
a  7,1  SAY  ' 
a  8,1  SAY  ' 


F-104* 
F-1.  * 
F-102* 
C-130* 


‘>5 

v*i 


a 


■S'- 


■  \'l 

Vi 

'<♦ 


§  9,1  SAY  •  4  F-4  « 

a  5,30  SAY  '  5  F-5  • 

a  6,30  SAY  •  6  F-16  * 

a  7,30  SAY  *  7  C-47  • 

a  8,30  SAY  •  8  F-18  * 

a  9,30  SAY  *  9  PBINT  YOOB  CHOICE  • 

a  10,15  SAY  •  Z  EXIT  10  BEPOHENO  * 

a  17,1  SAY  'OPTION;* 

STOBE  *  '  TO  choice 
BAIT  TO  choice 
EBASE 


‘‘U 


H 

v! 

/i*’ 

f»l{! 

n 


00  CASE 

CASE  choice  =  *0* 

SET  COLOB  TO  20,10 

a  14,30  SAY  '  PABTS  FOB  F-104  • 

SET  COLOE  TO  30,14 

LIST  FOB  arplt  =  •F-104' 

CASE  choice  =  •  1  ' 

SET  COLOE  TO  20,10 
a  14,30  SAY  'PABTS  OF  P-1' 

SET  COLOB  TO  30,14 
LIST  FOB  arplt  =  'F-1.' 

CASE  choice  =  '2' 

SET  COLOB  TO  20,10 

a  14,30  SAY  '  PABTS  OF  F-102  » 

SET  COLOB  TO  30,14 

LIST  FOB  arplt  =  'F-102' 


CASE  choice  =  '3' 

SET  COLOB  TO  20,10 
a  14,30  SAY  'PABTS  OF  C-130* 
SET  COLOB  TO  30,14 
LIST  FOB  arplt  =  'C-130* 
CASE  choice  =  *4' 

SET  COLOB  TO  20,10 
a  14,30  SAY  *  PABTS  OF  F-4  • 


f 
t 

P 

yi 


m: 


SET  COLOB  TO  30«14 
LIST  FOB  arplt  =  *P-4* 

CASE  choice  =  *5* 

SET  COLOB  TO  20,10 
a  14,30  SAY  »  PARTS  FOR  F-5  * 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *F-5  • 

CASE  choice  =  *6  * 

SET  COLOR  TO  20,10 
a  14,30  SAY  *  PARTS  FOR  F-16' 

SET  COLOR  to  30,14 
LIST  FOB  arplt  =  ‘F-ie* 
a  14,30  SAY  'PARTS  FOR  C-47  • 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *C-47  * 

CASE  choice  =  *8* 

SET  COLOR  TO  20,10 
a  14,30  SAY  •  PARTS  FOR  F-18  • 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *F-18  ' 

CASE  choice  =  *9* 

SET  PBIBI  ON 
LOOP 

CASE  choice  =  »X*  -OB.  choice  =  *x* 

SET  PRINT  OFF 
BETORN 
ENCCASE 

SET  ALTERNATE  OFF 
STORE  *  *  TO  manswer 
SET  COLOR  TO  20,10 

ACCEPT  "ENTER  A  Y  IF  YOO  WISH  ANOTHER  LISTING 

SET  COLCE  TO  30, 14 

ERASE 

IF  mansner  =  'y*  -OR.  nanswer  =  *Y* 


SET  PRINT  OFF 


LOOP 


m 


ELSE 

EETOBN 

ENOIF 

ENDOO 

END  DO  ffHILE 

Hewstr.prg  ♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AOTHOfi  :  ROHDYLOPOOLOS  HABALABOS 

♦  DATE  :  11-14-85 

♦  PURPOSE  :  THIS  PSOGBAM  LISTS  THE  INVENTOBY  OF  THE 

♦  :  HEAPON_STORES 

SET  PBIMT  OFF 
SET  ESCAPE  OFF 
SET  COLOB  TO  30,14 
SET  TALK  OFF 

SET  ALTERNATE  TO  revstc.txt 

SET  ALTERNATE  ON 

ERASE 

9  2,18  SAY  inventory  LISTING  •♦♦♦♦♦♦♦♦♦♦•• 

SET  COLOR  TO  20,10 
9  2,60  SAY  DATE  () 

SET  COLOR  TO  30,14 
USE  VS  tores 

9  10,18  SAY  'INDEXING . PLEASE  BE  PATIENT* 

9  16,18  SAY  'IF  YOU  NANI  TO  CANCEL.  PLEASE  HIT  <ESCAPE>  ' 
STORE  t  TO  flag 
DO  WHILE  flag 
ERASE 

STORE  *  '  TO  mquery 

ACCEPT  •'  PRINTED  INVENTORY  ?  Y/N  »*  TO  mquery 
ERASE 

IF  mquery  =  'Y'.OR.  mquery  =  *y' 

SET  PRINT  ON 
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STORE  1  TO  C 
DO  BHILE  C<5 


SET  COLOR  TO  20,10 
SET  PRINT  ON 

a  12,20  SAT  *SET  PRINTER  ON  PLEASE* 
3  12,50  SAT  CHE(7) 

STORE  c+1  TO  c 
SET  COLOR  TO  30,14 
ENDOO  BHILE 
ELSE 

SET  PRINT  OFF 
ENOIF 

STORE  t  TO  xflag 
DO  BHILE  Xflag 
ERASE 


SET  COLOR  TO  112,140 

i  11,15  SAY  '  IF  TOO  BANT  TO  FREEZE  THE  SCREEN  ',  ' 
a  12,15  SAY  '  DURING  THE  LISTINGHIT  CTRL  NOM_LOCK.  * 
a  13,16  SAY  *  PRESS  ANY  KEY  TO  CONTINUE  • 

SET  COLOR  TO  30,14 

a  1,5  SAY  *♦♦♦♦♦♦♦♦  REPORT  MENU  ♦♦♦♦♦♦♦♦« 

SET  COLOR  TO  20,10 
a  3,15  SAY  *AEPLANE  TYPE  MENU* 


a  9,30  SAY  •  9  PRINT  YODE  CHOICE  ’ 
a  10,15  SAY  •  X  EXIT  TO  REPOSENU  • 
a  17,1  SAY  'OPTION:* 

STORE  *  *  TO  choice 
BAIT  TO  choice 
ERASE 
00  CASE 

CASE  choice  =  *0* 

SET  COLOR  TO  20,10 

a  14,30  SAY  '  PARTS  FOR  F-104  • 

SET  COLOR  TO  30,14 

LIST  FOR  arplt  =  •F-104' 

CASE  choice  =  '  1  ' 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  OF  F-l* 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  'F-l.' 

CASE  choice  =  *2' 

SET  COLOR  TO  20,10 

a  14,30  SAY  '  PARTS  OF  F-102  ' 

SET  COLOR  TO  30,14 

LIST  FOR  arplt  =  'F-102' 

CASE  choice  =  *3* 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  OF  C-130' 

SET  COLOR  TO  30,14 
LIST  FOE  arplt  =  'C-130' 

CASE  choice  =  '4' 

SET  COLOR  TO  20,10 
a  14,30  SAY  •  PARTS  OF  F-4  • 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  •F-4' 

CASE  choice  =  '5' 

SET  COLOR  TO  20,10 
a  14,30  SAY  '  PARTS  FOR  F-5  ' 


SET  COLOB  TO  30,14 
LIST  FOB  arplt  =  'F-5  • 

CASE  choice  -  *6* 

SET  COLOB  TO  20,10 
a  14,30  SAY  •  PABTS  FOR  F-16* 

SET  COLOB  to  30,14 
LIST  FOR  arplt  =  ‘F-ie* 

CASE  choice  =  *7* 

SET  COLOR  TO  20,10 
a  14,30  SAY  ’PABTS  FOR  C-47  • 

SET  COLOB  TO  30,14 
LIST  FOR  arplt  =  *C-47  • 

CASE  choice  =  *8* 

SET  COLOR  TO  20,10 
a  14,30  SAY  *  PARTS  FOR  F-18  • 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  ’F-IB  • 

CASE  choice  =  *9* 

SET  PRINT  ON 
LOOP 

CASE  choice  =  ’X'  .OR.  choice  =  'it' 

SET  PRINT  OFF 
RETORN 
ENCCASE 

SET  ALTERNATE  OFF 
STORE  *  *  TO  uanswer 
SET  COLOR  TO  20,10 

ACCEPT  "ENTER  A  Y  IF  YOU  WISH  ANOTHER  LISTING 
?  "ELSE  ENTER  N  "  TO  • answer 
SET  COLOR  TO  30,14 
ERASE 

IF  aanswer  =  'y*  .OR,  manswer  =  ’Y' 

SET  PRINT  OFF 


&ETOBN 

ENDIF 

BNOOO 

EHOOO  WHILE 

Beacstr.prg  ♦♦♦♦*♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦ 

*  AOTHOfi  :  KOMDILOPOOLOS  HABAL&BOS 

♦  DATE  :  11-15-85 

*  POBPOSE  :  THIS  PROGBAH  LISTS  THE  INVENTORY  OF 

♦  :  THE  ACCESSORIES_STOaES 

««****«♦  ****««*«*««*♦  ♦*«♦#***«* 

SET  PRINT  OFF 
SET  ESCAPE  OFF 
SET  COLOR  TO  30,14 
SET  TALK  OFF 

SET  ALTERNATE  TO  reacstr.txt 

SET  ALTERNATE  ON 

ERASE 

a  2,18  SAY  inventory  LISTING  «♦♦♦♦♦♦♦♦♦♦•• 

SET  COLOR  TO  20,10 
a  2,60  SAY  DATE  () 

SET  COLOR  TO  30,14 
OSE  ac stores 

a  10,18  SAY  'INDEXING . PLEASE  BE  PATIENT' 

a  16,18  SAY  'IF  YOU  WANT  TO  CANCEL.  PLEASE  HIT  <ESCAPE>  ' 
STORE  t  TO  flag 
DO  WHILE  flag 
ERASE 

STORE  '  '  TO  mquery 

ACCEPT  •'  PRINTED  INVENTORY  ?  Y/N  ”  TO  mquery 
ERASE 

IF  mquery  =  'Y'.OR.  mquery  =  'y* 

SET  PRINT  ON 
STORE  1  TO  C 
DO  WHILE  C<5 


SET  COLOR  TO  20«10 
SEX  PBIRT  OH 

a  12,20  SAY  *S£T  PfilMTES  OH  PLEASE' 
a  12,50  SAY  CHR(7) 

STORE  c+1  TO  C 
SET  COLOR  TO  30,14 
EHDDO  WHILE 
ELSE 

SET  PRIHT  OFF 
ENDIF 

STORE  t  TO  xflag 
DC  WHILE  Xflag 
ERASE 

SET  COLOR  TO  112,140 

a  11,15  SAY  •  IF  YOU  WANT  TO  FREEZE  THE  SCREEN 
a  12,15  SAY  •  DOLING  THE  LISTING  HIT  CTR  NOll_LOCK.* 
a  12,16  SAY  •  PR  SS  ANY  KEY  TO  CONTINOE.  • 

SET  COLOR  TO  30 , 14 

a  1,5  SAY  »♦*♦♦♦♦♦♦  REPORT  MENU  ♦*♦♦♦♦♦♦• 

SET  COLOR  TO  20,10 
a  3,15  SAY  'ARPLAHE  TYPE  MENU' 
a  3,60  SAY  DATE  () 

SET  COLOR  TO  30,14 


a 

4,1 

SAY  '  OPTIONS  ' 

a 

5,1 

SAY  ' 

0 

F-104' 

a 

6,1 

SAY  ' 

1 

F-1.  ' 

a 

v,i 

SAY  ' 

2 

F-102' 

a 

8,1 

SAY  ' 

3 

C-130' 

a 

9,1 

SAY  ' 

4 

F-4  ♦ 

a 

5,30 

SAY  ' 

5 

F-5  ' 

a 

6,30 

SAY  ' 

6 

F-16  ' 

a 

7,30 

SAY  * 

7 

C-47  ' 

a 

8,30 

SAY  ' 

8 

F-18  ' 

a 

9,30 

SAY  ' 

9 

PRINT  YOUR  CHOICE  ' 

a 

10,15  SAY  ' 

X 

EXIT  TO  REPOMENO  ' 

125 


i  17,1  SAI  'OPTION:* 

STORE  '  '  TO  choice 
HAIT  TO  choice 
ERASE 
DO  CASE 

CASE  choice  =  'O' 

SET  COLOR  TO  20,10 

a  14,30  SAI  '  PARTS  FOE  F-104  • 

SET  COLOR  TO  30,14 

LIST  FOE  arplt  =  'F-104' 

CASE  choice  =  *1  * 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  OF  F-1* 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *F-1.' 

CASE  choice  *  *2* 

SET  COLOR  TO  20,10 

a  14,30  SAY  *  PARTS  OF  F-102  ' 

SET  COLOR  TO  30,14 

LIST  FOR  arplt  =  'F-102* 

CASE  choice  =  *3* 

SET  COLOR  TO  20,10 
a  14,30  SAY  'PARTS  OF  C-130' 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  'C-130' 

CASE  choice  =  *4* 

SET  COLOR  TO  20,10 
a  14,30  SAY  *  PARTS  OF  F-4  ' 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  *F-4* 

CASE  choice  =  '5  * 

SET  COLOR  TO  20,10 
a  14,30  SAY  '  PARTS  FOR  F-5  • 
SET  COLOR  TO  30,14 


CASE  choice  =  *6' 

SET  COLOR  TO  20,10 
a  14,30  SAI  •  PARTS  FOR  P-16' 

SET  COLOR  to  30,14 
LIST  FOR  arplt  =  »F-16' 

CASE  choice  =  *7  * 

SET  COLOR  TO  20,10 
a  14,30  SAI  'PARTS  FOR  C-47  ' 

SET  COLOR  TO  30,14 
LIST  FOR  arplt  =  'C-47  ' 

CASE  choice  =  '8' 

SET  COLOR  TO  20,10 
a  14,30  SAY  '  PARTS  FOR  F-18  ' 

SET  COLOR  TO  30,14 
LIST  FOE  arplt  =  'F-18  ' 

CASE  choice  =  *9' 

SET  PRINT  ON 
LOOP 

CASE  choice  =  »X'  .OR,  choice  »  '»' 

SET  PRINT  OFF 
RETORN 
ENOCASE 

SET  ALTERNATE  OFF 
STORE  '  '  TO  aanswer 
SET  COLOR  TO  20,  10 

ACCEPT  "ENTER  A  I  IP  YOO  NISH  ANOTHER  LISTING," 
?  «  ELSE  ENTER  N  "  TO  aanswer 
SET  COLOR  TO  30,14 
ERASE 

IP  manswer  =  'y'  .or.  manswec  =  'Y' 

SET  PRINT  OFF 
LOOP 
ELSE 

RETORN 


ENDIF 


ENDDO 

END  DO  WHILE 

Quenena.  prg  ♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

*  AOTHOfi  :  KONDYLOPOOLOS  HABALABOS 

*  DATE  :  10-11-85 

*  PURPOSE  :  THIS  PBOGBAH  SELECTS  THE  REQDIBED  QUERY 

«  :  OPERATION,  BY  USING  A  MEND  DRIVEN  CHOICE 

SET  ESCAPE  OPF 
SELECT  PRIMARY 
SET  COLOR  TO  20,5 
SET  TALK  OFF 
SET  FORMAT  TO  SCREEN 
SET  CONSOLE  ON 
DO  WHILE  t 

CLEAR 

ERASE 

a  1,15  SAY  «♦♦♦♦♦♦  ^AIRPLANE*  PARTS  SYSTEM  •♦♦**♦♦♦*• 
93,1  SAY  <QU£M£NU* 

3  3,60  SAY  DATEO 
3  7,1  SAY  *  OPTIONS;  • 

3  9,1  SAY  •  0  EXIT  TO  OPERATING  SYSTEM* 

3  11,1  SAY  '  1  LOCATION  OP  A  SPECIFIC  PART  ' 

3  13,1  SAY  *  2  COST  OF  A  SPECIFIC  PART  IN  • 

3  14,17  SAY  *  A  GIVEN  DATE  • 

3  15,1  SAY  '  3  NAME  OF  ORDERED  ON  A  GIVEN  • 

3  16,17  SAY  •  PAfiT_NUHBER  AND  DATE  • 

9  17,1  SAY  '  4  EXIT  TO  MAIN  MENU* 

3  19,1  SAY  *  X  EXIT  TO  DATABASE* 

3  2  1,1  SAY  *  SELECT  CHOICE  * 

STORE  *  *  TO  choice 
WAIT  TO  choice 
DO  CASE 

CASE  choice  =  *0* 
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CIEAB 

QOIT 

CASE  choice  =  *1' 

DO  quel 
USE 

CASE  choice  =  '2* 

DO  qae2 
USE 

CASE  choice  =  *3* 

DO  qae3 
USE 

CASE  choice  =  •4* 

RETURN 

USE 

CASE  choice  =  'X*  .OR.  choice  =  *x* 

CANCEL 

OIHERHISE 

STORE  1  TO  z 
DO  WHILE  2<5 

%  30,5  SAI  "INVALID  CHOICE....  PLEASE  TRY  A3  AIM  " 
a  31,5  SAY  CHR  (7) 

STORE  Z+1  TO  z 
ENCDO 

ENDCASE 

EMDDO  WHILE  t 

*^^*^,4‘*m*m*******  Quel. peg  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  AUTHOR  ;  KOND YLOPCULOS  HARALABOS 

♦  DATE  :  11-11-85 

♦  PURPOSE  :  THIS  PROGRAM  FINDS  A  SPECIFIC  PART  FROM  THE 

♦  :  INVENTORY 

*******  *m*****^*****itii^^t‘**********************^iitt^m******riit‘ 

SET  ESCAPE  OFF 

SET  COLOR  TO  30,  14 

SET  TALK  OFF 


1 


DO  WHILE  t 
SELECT  PBIMABT 
OSE  parts  INDEX  parts 

STORE  •  *  TO  mpno 

ERASE 

a  4,60  SAX  DATEO 

a  15,1  SAT  'ENTER  PART  NONBER  '  GET  apns 
a  23,1  SAX  'ENTER  A  BLANK  TO  EXIT  TO  QOEMENO' 

READ 

SET  COLCfi  TO  20,10 
a  1,56  SAX  apno 
SET  COLOR  TO  30,14 
IF  $(Bpoo,  1,  1)  =  *  ' 

RETORN 

ENDIP  $  (apno,  1,1)-  '  ' 

a  1,15  SAX  'LOCATION  OF  THE  PART  WITH  PART.HDHBER 
FIND  Sapno 
IF  #  *  0 

SET  COLOR  TO  112,140 

a  21,1  SAX  'DOES  NOT  EXIST  IN  THE  FILE  ' 
a  22,40  SAX  CHR(7) 

SET  TALK  OFF 
STORE  1  TO  XX 
DO  WHILE  xx<35 

STORE  XX4-1  TO  XX 
ENDDO  WHILE  ZX<70 
SET  COLOR  TO  30,14 
LOOP 
#  =  0 


ENDIF 
ERASE 

a  1,15  SAX  'LOCATION  OF  THE  PART  WITH  PART_N0HBER 
SET  COLOR  TO  20,  10 
a  1,56  SAX  apno 
SET  COLOR  TO  30,14 
a  4,60  SAX  DATE  () 
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a  23,1  SAI  «ENIEB  A  BLANK  TO  EXIT  TO  QOEHENa' 

DO  CASE 

CASE  arstrna  <>  ■  * 

SELECT  SECONDABY 
STOBE  *  '  TO  aslfso 

OSE  arstores  INDEX  ars tores 
FIND  Sp.pno 

8  7,1  SAY  •  DESCaiPTION  ;*  ♦  p.desc 
a  8,1  SAY  '  AEPLANE  TYPE;'  +  arplt 
a  9,1  SAY  •  QOH  ♦  STB(p-qoh,  5) 

a  10,1  SAY  •  COST  :•  ♦  STB(p.30St,  8) 

SET  COLOB  to  10,20 

a  11,1  SAY  '  THE  PABT  STORE  IS  :  arstrna 

a  12,1  SAY  •  THE  PABT  SHELF  NUHBEB  IS  :  'i-  aslfno 
SET  COLCR  TO  20,10 

a  23,1  SAY  '  TO  FEEEZE  THE  SCBEEN..  HIT  N0a_LOCK 

SET  COLOB  TO  30,14 

BEAD 

USE 

CLEAR 

CASE  wstrna  <>  '  • 

SELECT  SECONDABY 
STOBE  '  '  TO  wslfno 

USE  wstores  INDEX  wstores 
FIND  Sp.pno 

a  6,1  SAY  'DESCRIPTION  :'  +  p.desc 

a  7,1  SAY  'ARPLAN_TYPE  ♦  arplt 

a  8,1  SAY  'QUANTITY  ON  HAND  :'  +  STE(p.  qoh,5) 

a  9,1  SAY  'COST  ;'  ♦  STE(p.COSt,8) 

SET  COLCB  TO  10,20 

a  10,1  SAY  'THE  STORE  OF  THE  PART  IS  HStrna 

a  11,1  SAY  'THE  SHELF  OF  THE  PART  IS  wslfno 

ST  COLOR  TO  20,  10 

a  23,1  SAY  'TO  FREZE  THE  SCREEN..  HIT  NUM_LOCK  ' 

SET  COLCR  TO  30,14 


CIEAB 

LOOP 

CASE  juna  <>  •  • 

SELECT  SECONDABT 
STORE  *  •  TO  jslfno 

USE  junstores  INDEX  junstores 
FIND  Sp.pno 

d  6,1  SAY  'DESCEIPTION  :*  ♦p. desc 
a  7,1  SAY  *QOAN_ON_HAHD:*  ♦  STB(p.qoh,5) 
a  3,1  SAY  'COST  :•  ♦  STR(p.cost,  8) 

SET  COLOB  TO  10,20 

a  9,1  SAY  •  THE  STORE  OF  THE  PART  IS  juna 

a  10,1  SAY  'THE  SHELF  OF  THE  PART  IS  jslfno 

SET  COLOR  TO  20,10 

a  23,1  SAY  'TO  FREEZE  THE  SCREEN. .HIT  NOt!_LOCK 

SET  COLOR  TO  30,14 

READ 

CLEAR 

LOOP 

CASE  acstrna  <>  •  * 

SELECT  SECONDARY 
STORE  *  *  TO  acslfno 

USE  acstores  INDEX  acs tores 
FIND  Sp.pno 

a  6,1  SAY  ’DESCRIPTION  :•  ♦  p.  desc 

a  7,1  SAY  •ARPL_TYPE  :»  ♦  p.  arplt 

a  8,1  SAY  *QUAN_ON_HAND  ;*  ♦  STB(p.qoh,5) 
a  9,1  SAY  ’COST  ;’  ♦  STR  (p.  cost,  8 ) 

SET  COLOR  TO  10,20 

a  10,1  SAY  ’THE  PART  STORE  IS  :  ’  ♦  acstrna 

a  11,1  SAY  ’THE  PART  SHELF  IS  :  ’  ♦  acslfno 

SET  COLOR  TO  20,10 

a  23,1  SAY  ’  TO  FREEZE  THE  SCREEN  HIT  NU«_LOCK' 
SET  COLOR  TO  30,14 


LOOP 

OTHEBHISE 

3  18,10  SiY  'THIS  IS  HOT  PART  OF  THE  IHVEHTORY  • 
CLEAR 
LOOP 
ENDCASE 
ENDOO  WHILE  t 


Que2.prg  if*****************^************^^^* 


*  AUTHOR 

*  DATE 

*  PURPOSE 

* 


ROHDYLOPOULOS  HABALABOS 
11-18-85 

THIS  PBOGBAH  FINDS  THE  QUANTITY  AND  THE  COST 
OF  A  SPECIFIC  PART  IN  A  SPECIFIC  TIME. 


SET  COLOR  TO  30, 14 
SET  ESCAPE  OFF 
SET  TALK  OFF 
ERASE 

SELECT  PRIMABY 
USE  orders  INDEX  pro 
STORE  t  TO  flag 
*  Create  a  continue  loop 
DO  WHILE  t 

STORE  '  '  TO  answer 

STORE  '  '  TO  ipno 

a  15,1  SAY  'ENTER  PART  NUMBER  '  GET  mpno 
*  If  it  is  selection  of  new  part  for  the  same  date 
IF  flag 

STORE  •  '  TO  ffldate 

a  4,60  SAY  DAIEO 

a  17,1  SAY  'ENTER  THE  DATE'  GET  mdate  PICTURE  *99-'i9-99* 

ENDIF 

READ 
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*  Return  to  gueoenu  for  a  blank  entry 
IF  $  (npno,  1, 1  )=  '  * 

BETOBN 
ENDIF 
EBAS  E 

FIND  &mpno 
IF  #  =  0 
DO  error 
ENDIF 

STORE  0  TO  count 
STORE  0  TO  temp 

*  Look  up  all  the  file  for  a  specific  part#  and  date 
DO  WHILE  pno  =  mpno  .AND.  .NOT.  EOF 

IF  date  =  mdata 
ERASE 

a  6,1  SAY  CHR  (7) 

SET  COLOR  TO  20,10 

a  7,1  SAY  *Q0ANTITY  COST  EXTER.COST* 

SET  COLOR  TO  30,14 
a  10+count,3  SAY  +qnt 
a  10+count,17  SAY  ♦cost 
STORE  cost*gnt  TO  excost 
a  10+count,36  SAY  ♦excost 
STORE  excost^teap  TO  temp 
STORE  count+1  TO  count 
ENDIF 
SKIP 

ENDDO  WHILE 

a  15,15  SAY  'THE  TOTAL  COST  OF  THIS  DATE,  IS 
SET  COLOR  TO  20,10 
a  15,49  SAY  +temp 
STORE  1  TO  XX 
DO  WHILE  xx<50 

STORE  XX  +  1  TO  XX 
ENDDO 
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SET  COLOR  TO  30,14 

DO  HHILE  .NOT.  (  (answer)  =  *N*  .OR.  (answer)  =  *C') 
STORE  'C*  TO  answer 
SET  COLOR  TO  112,140 
9  22,  10  SAY  •  ENTER  AN  ACTION 
9.22,57  GET  answer 

9  23,  10  SAY  'C  =  CONTINOE  IITH  NEXT  PART_NOMBER  • 
9  23,  1  1  SAY  »  N  TO  EXIT  TO  QOEMENO  • 

SET  COLCB  TO  30,14 
READ 

IF  .NOT.  (  (answer)  =  *  N*  .OR.  (answer)  =  •  C*  ) 

DO  error 

STORE  *  *  TO  answer 
ENDIF 

ENDDO  WHILE 
DO  CASE 

CASE  (answer)  =  ‘C* 

*  Ask  a  new  part  number  in  the  same  date 
STORE  £  TO  flag 

LOOP 

CASE  (answer)  =  'N' 

*  Ask  a  new  date  for  the  same  part^number 
RETURN 

ENDCASE 
ENDDO  WHILE 

**«4i]tc*4t*4>***«*«4i  Que3.prg 

AUTHOR  :  KONDYLOPOULOS  HARALABOS 

♦  DATE  :  11-18-85 

♦  PURPOSE  :  THIS  PROGRAM  FINDS  THE  NAME  OF  THE 

♦  ;  PURCHASING  AGENT, AND  THE  TIME  OF  THE  ORDER 

♦  :  FOR  A  SPECIFIC  PART. 

♦  ♦♦♦♦♦♦  ♦♦♦♦♦♦♦♦♦♦♦ 


SET  ESCAPE  OFF 
SET  TALK  OFF 
ERASE 

SELECT  PRIHARY 
OSE  orders  INDEX  pno 
STORE  t  TO  flag 
*  Create  a  continue  loop 
DO  WHILE  t 

STORE  '  '  TO  answer 
STORE  '  *  TO  mpno 

3  15r1  SAY  «ENTEB  PART  HUMBER  *  GET  mpno 

*  If  it  is  selection  of  new  part  for  the  same  date 
IF  flag 

STORE  *  •  TO  mdate 

3  4,60  SAY  DATEO 

a  17,1  SAY  ’ENTER  THE  DATE*  GET  mdate  PICTURE  ’99-99-99’ 

ENDIF 

READ 

*  Return  to  guemenu  for  a  blank  entry 
IF  $  (mpno,  1,1)=  *  ’ 

RETURN 

ENDIF 

ERASE 

FIND  &mpno 
IF  #  =  0 
DO  error 
ENDIF 

STORE  0  TO  count 
STORE  0  To  temp 

*  Look  up  all  the  file  for  a  specific  part#  and  date 
IF  date  =  mdate  .AND.  pno  =  mpno 

ERASE 

3  6,1  SAY  CHR  (7) 

SET  COLOR  TO  20,10 

a  7,1  SAY  ’PA_N0Mfi  -  OBDEHED_NAME  -  EXTER_COST’ 
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SET  COLOR  TO  30,14 
a  10>count,3  SAX  ♦pno 
a  lO-fcountfl?  SAX  4-ordna 
STORE  cost*qnt  TO  ezcost 
a  10^count,36  SAX  4-ezcost 

END  IF 

a  15,15  SAX  *THE  ORDERED  NAEE  IS 
SET  COLOR  TO  20,10 
a  15,37  SAX  ^ordna 
STORE  1  TO  ZZ 
DO  WHILE  ZZ<50 

STORE  ZZ+I  TO  ZZ 
ENDDO 
ERASE 

SET  COLOR  TO  30,14 

DO  WHILE  .NOT.  (  (answer)  =  *N*  .OR.  (answer)  =  *C«) 
STORE  *C*  TO  answer 
SET  COLOR  TO  112,140 
a  22,10  SAX  *  ENTER  AN  ACTION 
a  22,  57  GET  answer 

a  23,10  SAX  *C  =:  CONTINUE  WITH  NEXT  PART.NUHBER  ' 
a  23,11  SAX  »  N  =  EXIT  TO  QOEHEND  » 

SET  COLOR  TO  30,14 
READ 

IF  .NOT.  (  (answer)  =  *N*  .OR.  (answer)  =  'C*  ) 

DO  error 

STORE  *  '  TO  answer 
ENDIF 
ENDDO 
DO  CASE 

CASE  (answer)  =  *C' 

*  Ask  a  new  part_nuaber  in  the  same  date 
STORE  f  TO  flag 
LOOP 

=  *N' 


CASE  (answer) 


*  Ask  a  nev  order  nunber  for  the  different  date 


BEIUBN 
ENOC ASE 
ENDDO  WHILE  t 

«***«*«««*«***  Error,  prg  *********’tf*********************** 

*  AOTHOB  :  KONOILOPOULOS  HABALABOS 

*  DATE  :  11-11-85 

*  POBPOSE  :  THIS  BOUTINE  FLASHES  A  BAD  INPOT  MESSAGE 

SET  COLOB  TO  errcolor , berrcolor 
STOBE  1  TO  XX 
DO  WHILE  XX<8 

a  20  ,  50  SAY  *BAD  IHPOT  • 
a  21,50  SAY  ’CHECK  YOOB  INPUT  • 
a  22,  50  SAY  *AND  TBY  AGAIN  * 
a  22,65  SAY  CHB(7) 

STOBE  XX  1  TO  XX 
ENDDO  WHILE 
EBASE 

SET  COLOB  TO  mscolor, ccolor 
BETOBN 
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APPENDIX  B 


DEFINITIONS  OF  THE  DATABASE  [REF  2] 


Binding  is  the  process  of  fixing  data  or  processing  all 
relationships  which  are  used  to  generate  informations  that 
must  be  bound.  Binding  frequently  takes  place  years  before 
a  new  database  system  becomes  operational. 

Computation  on  a  database  denotes  a  section  of  an  applica¬ 
tion  on  the  database  as: 

a.  Building  of  the  data  collection  that  includes  data 
collection,  data  organization,  and  data  storage. 

b.  Updating  of  a  database  that  includes  the  addition  of 
new  data,  the  changing  of  the  values,  and  the  deletion 
of  data. 

c.  Data  retrieval  that  can  consist  of  the  fetching  of  a 
specific  element  in  order  to  get  a  stored  value  or  fact. 

To  fetch  a  specific  data  record,  the  database  uses  a 
search  argument,  which  is  matched  with  a  key  in  the 
database  records. 

d.  Reduction  of  large  quantity  of  data  to  usable  form  we 
have  when  the  volume  summarization  of  data  presented  in 
manageable  and  usable  form.  Some  of  the  common  used 
techniques  are:  statistical  summaries  and  annual  business 
operating  statements. 

Database  is  a  shared  collection  of  inter-related  data  de¬ 
signed  to  meet  the  varied  information  needs  of  an  organization. 
Database  Management  System  (DBMS)  is  a  software  system  that 
performs  (carries  out)  all  user’s  requests  for  data.  User’s 
requests  may  be  an  update  or  a  retrieval. 


n 

•|1 
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Database  system  is  a  system  to  record  and  maintain  informa¬ 
tion  that  is  significant  to  organization  in  the  decision¬ 
making  processes. 

Files  is  a  term  in  the  computer  terminology  where  data  is 
stored  more-or-less  permanently  in  a  computer  and  the  pro¬ 
grams  that  manipulate  it. 

Flowcharts  is  a  way  of  describing  complex  processes  and 
data  flow  by  using  a  graphic  description.  There  are  three 
types  of  activities:  control  flow,  control-data  flow,  and 
data  flow. 

a.  Control  flow  is  the  sequence  of  instructions  by  process¬ 
ing  unit . 

b.  Control-data  flow  is  the  flow  of  data  elements  that 
effect  the  control  flow  of  the  computation. 

c.  Data  flow  is  the  typical  flow  between  files  and  input 
or  output  devices. 

Input -Output  consists  of  internal  and  external  transfers  of 
data.  Internal  when  reading  or  writing  files  where  data  is 
transferred  between  storage  unit  of  the  computer  and  external 
when  reading  input  or  writing  output.  Database  is  concerned 
with  data  which  remains  within  the  scope  of  the  system. 
Processes  are  the  basic  computational  units  managed  by  the 
operating  system.  The  scheduling  and  performance  of  process, 
and  hence  of  the  computations  that  were  specified  determine 
the  performance  of  database  systems. 

Record  is  a  collection  of  similar  records  kept  on  a  secondary 
computer  storage  device. 


Size  is  the  quantity  of  data  to  be  handled,  and  depends  on 
the  hardware  and  operational  constraints  which  may  apply 
in  a  given  environment. 
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APPENDIX  C 


DBASE  II  COMMAND  SUMMARY  [REF.  17] 


”>  ?  —  displays  an  expression,  variable,  or  field. 

>  ??  —  displays  an  expression  list  without  a  preceding 

line  feed. 

>  @  —  displays  user  forxnatted  data  on  screen  or  printer. 

>  ACCEPT  —  allows  input  of  character  strings  into  memory 

variables. 

>  APEND  —  append  information  from  another  dBASE  II  database 

or  files  in  Delimited  or  System  Data  format. 

>  BROWSE  —  full  screen  window  viewing  and  editing  of 

database. 

>  CANCEL  —  cancels  command  file  execution. 

>  CHANGE  —  Non*-Full-Screen  edit  of  fields  of  database. 

>  CLEAR  —  closes  databases  in  use  and  releases  current 

memory  variables. 

>  CONTINUES  —  continue  the  searching  action  of  a  LOCATE 

command . 

>  COPY  —  creates  a  copy  of  an  existing  database. 

>  COUNT  —  counts  the  number  of  records  in  file  which 

meet  some  criteria. 

>  CREATE  —  creates  new  database. 

>  DELETE  —  deletes  a  file  or  marks  records  for  deletion. 

>  DISPLAY  —  display  files,  database  records  or 

structure,  memory  variables,  or  status. 

>  DO  —  executes  command  files  or  structured  loops  in  same. 

>  EDIT  —  initiates  edit  of  records  in  a  database. 

>  EJECT  —  ejects  a  page  on  the  printer. 

>  ELSE  —  alternate  path  of  command  execution  within  IF. 

>  ENDCASE  —  terminates  a  CASE  command. 

>  ENDDO  —  terminates  DO  WHILE  command. 

>  ENDIF  —  terminates  an  IF  command. 

>  ENDTEXT  —  terminates  a  TEXT  connand. 

>  ERASE  —  clears  the  screen. 

>  FIND  —  positions  to  record  corresponding  to  key  in 

index  file. 

>  GO  or  GOTO  —  positions  to  specific  record  or  place 

in  file. 

>  HELP  —  access  help  file  overview  or  specific  help 

file  entry. 

>  IF  —  allows  conditional  execution  of  commands. 

>  INDEX  —  creates  an  index  file. 

>  INPUT  —  allows  input  of  expressions  into  memory 

variables. 

>  INSERT  —  Insert  new  record  in  database. 
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>  JOIN  —  joins  output  of  two  databases. 

>  LIST  —  lists  files,  database  records  or  structure, 

memory  variables,  and  status. 

>  LOCATE  —  find  a  record  that  fits  a  condition. 

>  LOOP  —  ski  p3  to  beginning  of  DO  WHILE  comnand. 

>  MODIFY  —  create  and/or  edit  command  file  or  modify 

structure  of  existing  database. 

>  NOTE  or  *  —  allows  insertion  of  comments  in  command 

file. 

>  PACK  —  erases  records  marked  for  deletion. 

>  QUIT  —  exits  dBASE  and  returns  to  operating  system. 

>  READ  —  initiates  full-screen  editing  or  formatted 

screen  by  accepting  input  into  variables 
accessed  with  a  GET. 

>  RECALL  —  erases  mark  for  deletion. 

>  REINDEX  —  update  existing  index  file. 

>  RELEASE  —  eliminates  unwanted  memory  variables  and 

releases  memory  space. 

>  REMARK  —  permits  display  of  any  characters. 

>  RENAME  —  rename  a  file. 

>  REPLACE  —  change  information  in  record(s)  or  entire 

database  field  by  field. 

>  REPORT  —  format  and  display  a  report  of  information. 

>  RESET  —  reset  operating  system  after  placing  new  disk 

in  drive. 

>  RESTORE  —  retrieves  memory  variables  stored  in  MEM  file 

>  RETURN  —  ends  a  command  file. 

>  SAVE  —  copies  current  memory  variables  to  disk  file. 

>  SELECT  —  switches  between  USE  files  in  PRIMARY  and 

SECONDARY  areas. 

>  SET  —  sets  dBASE  control  parameters. 

>  SKIP  —  position  forwards  or  backward  in  database. 

>  SORT  —  write  copy  of  database  sorted  on  one  of  the 

data  fields. 

>  STORE  —  creates  memory  variables. 

>  SUM  —  compute  and  display  the  sum  of  database 

fleld(s). 

>  TEXT  —  allows  output  of  block  of  text  from  a 

command  file. 

>  TOTAL  —  creates  summary  copy  of  database 

combining  information  from  specified 
fields  of  records  meeting  some 
criteria. 

>  UPDATE  —  allows  batch  updates  of  a  database. 

>  USE  —  specifies  database  to  USE  until  next 

USE  command  is  issued. 

>  WAIT  —  suspends  command  file  processing  until 

user  input  received. 
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DBASE  II  FUNCTIONS  [REP.  17] 


>  @  —  § ( <cstringl>»  <cstring2>)  —  AT  function  yields  an 
integer  whose  value  is  the  character  number  in 
<cstring2>  which  begins  a  substring  identical  to 
<cstringl>. 

>  *  —  deleted  record  function  evaluates  as  a  logical  TRUE 

if  current  record  has  been  marked  for  deletion. 

>  #  —  record  number  function  reports  value  of  integer 

corresponding  to  current  record  number. 

>  !  —  !(<cstring>)  —  uppercase  function  yields  <cstrinq> 

in  uppercase  characters. 

>  $  —  $(<cstring>,  <start>,  <length>)  —  substring  functio 

forms  a  character  string  from  the  specified  part  of 
another  another  string. 

>  CHR  —  CHR(<numerlc  exp>)  —  yields  the  ASCII  character 

equivalent  of  the  <numeric  exp>.  e.g.r  ?  CHR  (7) 
rings  the  bell. 

>  DATEO  —  returns  the  character  string  that  contains  the 

System  Date  in  format  xx/xx/xx. 

>  EOF  —  end-of-file  function  evaluates  as  True  if  an 

attempt  has  been  made  to  go  past  the  last  record 
in  a  database. 

>  FILE  —  PILE(<file>)  —  existence  function  evaluates  as  a 

logical  False  if  it  does  not. 

<  INT  —  INT  (<numeric  exp>)  —  integer  function  truncates 

everything  to  right  of  decimal  to  form  an  integer. 

<  LEN  —  LEN( <cstring> )  —  length  function  returns  the 

number  of  characters  in  <cstring>.  ?  LEN( 'HELLO') 

<  RANK  —  RANK( <cstring> )  —  returns  the  (ASCII  numeric) 

value  of  the  leftmost  character  of  <cstring>. 

<  STR  —  STR  (<numeric  exp>,  <width>  [ , <decimals> 1 )  — 

string  function  converts  a  numeric  expression 
into  a  character  string. 


<  TEST  —  TEST(<exp>)  —  used  with  ?  and  IF,  test  function 

determines  if  <exp>  is  valid  and  parsable.  A  valid 
<exp>  returns  a  value  #  0;  an  Invalid  <exp>  a  value 
of  0. 

<  TRIM  —  TRIM  (<catring>)  -  trim  function  removes  trailing 

blanks  from  <c-string>.  ?  TRIM(PIRST)  +  ''+  LAST. 

<  TYPE  —  TYPE(<exp>)  —  function  yields  a  one-character 

string  that  contains  a  'C,  'N' ,  'L',  or  'U*  if  the 
<exp.  is  of  type  character.  Numeric,  Logical,  or 
Undefined. 

<  VAL  —  VAL  (<cstring>)  —  value  function  converts  a  character 
string  made  of  numerals  into  a  numeric  expression 
[Ref.  17]. 


APPENDIX  E 


DBASE  II  LIMITATIONS  AND  CONSTRAINTS  [REF.  17] 


number 

f i e Id s / record 

32  max 

number  chars/record 

1000  max 

number 

r ecor ds/da tabas  e 

65535  max 

number 

char  s/cstring 

254  max 

accuracy  numeric  fields 

10  digits 

largest  number 

1.8  X  10**63  approx 

number 

current  memyars 

64  max 

number 

chars/command  line 

254  max 

number 

<exp>s  in  SUM  command 

5  max 

number 

chars  in  REPORT  header 

254  max 

number 

fields  in  REPORT 

24  max 

number 

chars  in  index  key 

99  max 

number 

of  pending  GETS 

64  max 

number 

of  files  open  at  one  tim 

16  max 

length  of  .PRG  file 

unlimited 
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